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JEDEN MONAT EIN SUPER-UTILITY 


DIESMAL: DISCEDIT 


SM BIEGEN CPC 66 
G) IN) enceır 
| JOYCE 


8088 Microprozessor, 4,77/8 MHz 

256 KB Hauptspeicher auf 1024 KB erweiterbar 
1x 360 KB Diskettenlaufwerk (formatiert) 
Grafik-Monitor 

Ergonomische Tastatur mit LED-Anzeigen 
Druckerschnittstelle, Centronics 

Stecksockel für mathematischen Co-Prozessor 
Farb-Grafik - Adapter 640 x 200 Punkte 

8 Erweiterungssteckplätze 

Made in Germany, IBM-kompatibel 


1898,- 


8088 Microprozessor, 4,77/8 MHz 

256 KB Hauptspeicher auf 1024 KB erweiterbar 
2 x 360 KB Diskettenlaufwerk (formatiert) 
Grafik-Monitor 

Ergonomische Tastatur mit LED-Anzeigen 
Druckerschnittstelle, Centronics 

Stecksockel für mathematischen Co-Prozessor 
Farb-Grafik - Adapter 640 x 200 Punkte 

8 Erweiterungssteckplätze 

Made in Germany, IBM-kompatibel 


2248,- 


GIGGE ELECTRONICS 


Abt. 56C - Schneefernerring 4 - 8500 Nürnberg 50 - HOTLINE bis 20 Uhr - Tel. 0911/84244 - 
NEU! - Mailbox 0911/84400 von 17 bis 24 Uhr 
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IMPRESSUM SCHNEIDER-aktiv: 


Herausgeber: Verlag COMPUTER-aktiv, Inhaberin: Sigrid Gigge 


Anschrift des Verlages und der Redaktion: Verlag COMPUTER- 
aktiv - Sigrid Gigge - Schneefernerring 4 - 8500 Nürnberg 50 - 
Tel. 0911/84244 - Mailbox: 0911/84400 (täglich 17-24 Uhr) 


Chefredakteurin: Sigrid Gigge (verantwortlich). Alle Artikel, bei 
denen der Name des Verfasser am Ende des Artikels in Klammern 
() steht, geben ausschließlich die Meinung eines nicht dem Verlag 
angehörigen Verfassers - nicht die Meinung des Verlages bezw. 
der Redaktion wieder. 


Vertrieb: Verlagsunion, 6200 Wiesbaden 


Druck: Mayer & Söhne KG, 8890 Aichach 


Anzeigen: Es gilt Anzeigen-Preisliste 7/86 


Einzelbezugspreis: DM 5,-/sfr 5,-/ÖS 43,- (Normalausgabe) 


Abonnementbezug: Inland: 60,- DM, Europa DM 70,- jeweils 
inkl. Porto und Verpackung. Abonnementbedingungen in diesem 
Heft. Erscheinen: 12 mal im Jahr bezw. 11 mal im Jahr mit einem 
Doppelheft 


Beitragseinsendung: Mit der Einsendung von Beiträgen stimmt 
der Verfasser dem ausschließlichen Abdruckrecht des Verlages zu. 
Für unverlangt eingesandte Manuskripte, Datenträger und Fotos 
keine Haftung des Verlages. Es gelten die Honorarbedingungen 
der Honorarliste 7/86 als vereinbart, wenn keine sonstige 
schriftliche Vereinbarung getroffen wurde. Honorarzahlungen für 
eingesandte Listings beinhalten das Abdruckrecht und 
Nutzungsrecht im SOFT-BOX Programmservice des Verlages 
sowie den Übergang des Urheberrechts auf den Verlag. Das 
Urheberrecht am Verlagsprodukt hat der Verlag. (siehe 
Autorenvertragsbedingungen) 


Autoren und freie Mitarbeiter: 


von SCHNEIDER-aktiv in 
alphabetischer Reihenfolge: Markus Adamski, Hartmut 
Adelsberger, Steffen Adomeit, Sascha Basler, Ulrich Becker, 
Heinrich Behrendt, Reinhard Bitter, Wolfgang Buldt, Klaus 
Werner Bues, Gerald Butterwege, Christian Eißner, Alwin Ertl, 
Hendrik Frenzel, Benjamin Furch, Wilhelm Fähndrich, Berthold 
Freier, Hendrik Frenzel, Jens Gerhart, Ralph Großmann, Markus 
Gebhard, Uwe Ganter, Hermann Groß, Andreas Guhr, Tassilo 
Hummel, Bruno Kesel, Heiner Kickermann, Martin Kotulla, 
Rüdiger Kronenberg, Herbert Langheim, Wolfgang Lemme, Udo 
Maass, Jan-Mirko Maczewski, Lothar Maluche, Hans Machat, 
Klaus Mehner, Heinrich Möller, Andreas Müller, Johannes 
Muschik, Olav Pankow, Rainer Pecksen, Stefan Ralf Petersen, 
Richard Rastetter, Robert Schaefer, Gert Seidel, Stefan Tröster, 
Dr. Thomas Tegeler und viele andere. 


VORWORT 


Liebe SCHNEIDER-aktiv Leser, 


der Verlag ist - wie Ihnen viel- 
leicht schon bekannt - in die Hän- 
de der Firma Gigge Electronics 
übergegangen, die sich bemühen 
wird, SCHNEIDER-aktiv ab der 
nächsten Ausgabe weiter auszu- 
bauen. Wir haben die Londoner 
AMSTRAD-Messe mit großen Er- 
wartungen besucht. Von einem neu- 
en Schneider war nichts zu sehen. 
In England erwartet man den oder 
die Neuen erst im September. 


Neu ist bereits ab dieser Ausgabe 
die Bezugsmöglichkeit der engli- 
schon AMSTRAD (Schneider) 
Computerfachzeitschrift als Kombi 
-Abo über unseren Verlag. 


Neu ist auch, daß wir in jeder 
Ausgabe von SCHNEIDER-aktiv 
von nun an immer ein SUPER-Lis- 
ting bringen, das selbstverständlich 
auch in der Soft-Box enthalten ist. 
Diesmal ist es das "DiscEdit" von 
Martin Kotulla aus Nürnberg. 


Wir honorieren ab sofort jeden ab- 
gedruckten Tip & Trick zum CPC/ 
PCW mit mindestens DM 30,-. Was 
liegt nicht näher, als sofort die 
Trickkiste auszupacken und uns zu 
schreiben - bevor es ein anderer 
tut. Selbstverständlich müssen die 
eingesandten Beiträge noch unver- 
öffentlich sein und aus der eigenen 
Feder stammen. 


Anschrift und die Rufnummern des 
Verlages haben sich geändert: 


m Verlag COMPUTER-aktiv 
Sigrid Gigge 
Schneefernerring 4 
8500 Nürnberg 50 

m Tel.: 0911/84244 
(möglichst zwischen 16-17 Uhr) 

m Modem: 0911/84400 
(täglich von 17-24 Uhr) 


Und nun viel Spaß 


Euer SCHNEIDER-aktiv Team 
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.. SCHNEIDER-aktiv erscheint immer. 
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Prosoft-Preiseliegenrichtig! 


= 02 61/40 47-1 - Telex 862476 PSOFT 


Für Schüler und Studenten gewähren wir bei Semester- oder Klassenbestellungen Sonderpreise! 
Händler- und Großabnehmeranfragen erwünscht! 
Wir suchen ständig günstige Einkaufsquellen für die angebotenen und neue innovative Produkte. 


EPSON-Computer DM 


Epson PC und PC-HD zu den ProSoft-Preisen auf Anfrage 


PX-4 1848,- TF 15 Floppy 1348,- 
PX-8-Computer 2278,- TF-20 Floppy 5V4" 1748,- 
HX-20, Koffer u. Netzt. 1330,- PF-10 Floppy 3V2" 1398,- 
EPSON-Drucker 
FX-85 1289,- LX-80 a.Anfr. FX-105 1699,- 
LQ-1500 3198,- LQ-800 1998,- JX-80 1890,- 
HI-80 1245,- LX90IBMo.Applellc 848,- 
LX 90 C64, VC20, Atari, Schneider oder MSX 798,- 
Grafik-Interface Apple/EPSON incl. Kabel 128,- 
Görlitz-Interface EPSON/C 64 oder C 128 198,- 
G.ITOH-Drucker atemanc+728,- F+779,- 

- 
Seikosha-Drucker 
SP-1000 A, AS oder VC 739,- 
SP-1000 AP 999,- SP-1000CPC 798,- 
Gesamte Palette zu den bekannten ProSoft-Preisen! 

- 

Panasonic 
KX-P 1080 685,- KX-P 1091 798,- 
KX-P 1092 1048,- KX-P 1592 1398,- 
KX-P 1595 1798,- 
Wiesemann-Interface für C 64 149,- 
Mannesmann-Drucker 
MT-80 + 685,- MT-290 2498,- 
NEC-Drucker 
Pinwriter P2 899,- Spinwriter 2000 1248,- 
Pinwriter P3 1468,- Interface parallel oder 
Pinwriter P2color 1899,- seriellfür SP 2000 348,- 
Pinwriter P3 color a. Anfr. 
Parallel-Interface Spinwriter 3500 inc. , 
für P2 oder P3 299,- parallel o. seriell Interface 
Seriell-Interface Sprinwriter 8800 4298,- 
fürP2 oder P3 499,- Interface parallel o. seriell 348,- 
PSincl.parallelinterface 3248,- InterfaceIBM-Zeichensatz 398,- 
Neu! P6paralel 1369,- Neul P7 parallel 1784,- 
Star-Drucker 


Endlospapier u. Einzelbl., 120 cps 


Gemini 10xi 498,- 


Gemini 15 xi ; 698,- 


sG10C777,=-  SG-151098,- 
Star SG-10 Preissenkung 698,- 
NEU! Star NL-10 incl. Interface 79,- 
SD 10 1148,- SR10 1498,- SD15 1498,- 
SR 15 1798,- 

Universal Wiesemann-Interface 92000 149,- 
Universal Wiesemann-Interface 8 K-Buffer 92008 225,- 
Görlitz-Hardware-Interface für C64 249,- 
Görlitz-Hardware-Interface mit8KB 349,- 
Brother 


HR-5 nur DM 198,- 


wahlweise seriell, parallel oder Commodore-Version 


M-1109 DM 548,- 


EP-44 498,- HR-15XL seriell 1348,- TC-600 1175,- 
FB-100 785,- HR-15XL parallel 1198,-_ M-1509 1399,- 
CA-50-16 159,- HR-15XLII 1198,- M-2024L+ 2598,- 
Twinwr.-5 3698,- HR-35 2499,- 


Citizen-Drucker Citizen-Drucker 


MSP-15 1498,- MSP-20 1648,- MSP-25 2148,- 


Matrixdrucker 120D 898,- MSP-10 1198,- 
. 

Okidata-Drucker 

Okimate 20 Farbdr. 625,- Microline 182 738,- 

Microline 183/15” 944,- Microline 192 1224,- 


Microline 193/15” 1549,- 


Alle Preise incl. MwSt. zuzügl. 10,- DM Versandkosten pro Paket. Lieferung per Nachnahme oder Vorkassescheck - Versandkosten Ausland 

DM 40,- pro Paket. Lassen Sie sich keinen Bären aufbinden! ProSoft liefert Original-Produkte der führenden Hersteller. Überzeugen 

Sie sich selbst durch Abholung der Ware in unseren Verkaufs- und Vorführräumen in Koblenz. Wir gewähren Ihnen bei Barzahlung 
(kein Scheck) 2 % Skonto auf alle Preise, was vielleicht schon zur Deckung Ihrer Reisekosten ausreicht. 


ProSoft GmbH 


Bogenstraße 53, Postfach 207, D-5400 Koblenz-Goldgrube 
Telefon 02 61/40 47-1 - Telex 862476 PSOFT 


Tandon Tandon 
Der PC-Kompatible, Intel 8088, 2 Laufwerke & 360 kB, 
256 kB Hauptspeicher, 14" Bildschirm, 
Tastatur, MS-DOS 2.11, GW Basic 


Der XT-Kompatible, Daten wie PC, jedoch 

1 Laufw. 360 kB, 1 Festplatte20 MB 

Der AT-Kompatible, Intel 80 286, 1 Laufwerk 
1,2 MB, 512 kB Hauptspeicher, 14" Bild- 
schirm, Tastatur, MS DOS 3, GW Basic 

Wie PCA, jedoch mit 20 MB 

Wie PCA, jedoch mit 30 MB 

Aufpreis für Farbmonitor alle Modelle 


Commodore 

Commodore PC-10 
512 KB Hauptspeicher, 2 Diskettenlaufwerke A 360 KB, Farb/ 
Monochromgrafikkarte, serielle und parallele Schnittstelle, 
Monitormonochrom, Tastatur deutsch, MS-DOS, GW-Basic. 
Commodore PC-20 Il 
512 KB Hauptspeicher, 1 Diskettenlaufw. 360 KB, 1 Festpl. 20 
MB, Farb/Monochromgrafikk., serielle u. parallele Schnittst., 
Monitor monochrom, Tastatur deutsch, MS-DOS, GW-Basic 


Olivetti 


ProSoft-Aktions-Preise - Rufen Sie uns an. 
N-11,M-19,M-21,M-24,M-28 besond.preisw. - auf Anfr. 


Multitech 


MCP-500 DRV, Volks-PC, gleiche Ausführung wie 

MPC-500 SRV nur mit 2 Diskettenlaufw.4360KB 2898,- 
MPC-55XT/2V wie MPC-522 V, nur mit 1 Disket- 
tenlaufwerk 360 KB, 1 Festplatte 20 MB 
MPC-700 ERV wie MPC-700 DRV nur mit 640 KB Hauptspei- 
cher, 1 Diskettenlaufw. 360 KB, 1 Festpl.20 MB 
MPC-900 FG intel 80286, 512 KB Speicher, 2 ser., 1 par. 
Schnittstelle, 1 Diskettenlaufw. 1,2 MB, 1 Festpl. 20 MB,Zu- 
griffsgeschw.: 82 ms, Mon. 14", Tast., MS-DOS3.1 9128,- 


Plantron 


Commodore 


Olivetti 


Zenith au. PC-,XT-Modelle 
Zubehör tür alle IBM-com 


Speicheraufrüstung von 256 KB auf 640 KB 
Speicheraufrüstung von 512 KB auf 640 KB 
Co-Prozessor 8087 

Winchesterlaufwerk 10 MB mit Controller 


pt. Systeme 
298, - 


dBase dBase dBase dBase dBase dBase dBase 


dBase Il (deutsch) 
Clipper Compiler 
Wordtech Comp. 


dBase Ill (deutsch) 1448,- 
ClipperC. (dtsch) 1998,- 


Turbo Gameworks 128,- 
Textverarbeitung 
Wordst.200(dtsch) 
MS-Word (dtsch) 
Kalkulation Kalkulation 
Supercalx 3.2 (dtsch) 998,- 


Textverarbeitung 
Wordstar3.4 (dtsch) 875,- 


Kalkulation Kalkulation 

Multiplan2.0 (dtsch) 598,- 
Jetzt auch Atari Softwarelieferbar. Fordern Sie dieentsprechenden Software- 
Listen an! 16 Bit MS-DOS IBM kompatibel u. a. Apple Macintosh, Apple Ile, 
Erweiterungskarten für IBM, Appleu.kompat.Computerpreisw. a.Anfrage 


0261/40 81 64 
Apple le 169 


Hotline 
Apple! Apple lc 1698,- 


ProDos User Kit (Handbuch und Diskette) 
Macintosh Plus 1 MB 


Sharp Sharp Sharp Sharp 


PC-1500 A, CE-150 u. 20 Rollen Papier 669,- 
NEU! PC-1600 auf Anfrage 
NEU! PC-1600! Sharp setzt neue Maßstäbe bei Portables 


Portable-Profi-Paket 
PC-1600, 96 KB ROM, max. 80 KB RAM 


PC-1600 P, 4-Farb-Printer 
PC-1600 F Floppy-Disk Einführungspr. 1 898,- 


Sharp-Sonderpreise 


PC-1350 349,- PC-1401 198,- 
PC-1402 274,- PC-1500A 348,- PC-2500 589,- 
PC-1245 109,- PC-1246 9%,- PC-1247 183,- 
PC-1260 216,- PC-1261 369,- PC-1430 %8,- 
PC-1450 249,- ' CE-125 225- CE-1&E 218,- 
CE-150 328- CE-161 309,-  CE-158 358,- 


RD-720 H 98,- CE-126 P 157,-  CE-129P  215,- 
CE-515 P 625,- CE-140 P 488,- 


Cassettenrecorder-Interface für PC-1246, PC-1247, PC-1260, PC-1261, 
PC-1350, PC-1401, PC-1402, PC-1421, PC-1430, PC-1450 nur 28,- 


MZ-811 374,- MZ-821 444,- 
Floppy MZ-1 F 19 51/4", MZ-1 E05 Controller 776,- 


PC-7000 Die tragbare Sensation von Sharp 5555,- 


a 
Atari aan s20ST+ auf Antr. Atari 260 ST+ auf Anl. 


Atari 260 ST+ aufgerüstet auf IMB auf Anfrage 
- 
Sch ne ider PC Amstrad auf Anfrage 
Alle Vortex-Produkte auf Anfrage! 
CPC-464 grün Monitor 698,- mit farb. Monitor 1148,- 
Floppy-Laufwerk 3" DD-1 725,- 2. Floppy FD-1 548,- 
Disketten 3" f. Schneider CPC 10St. 109,- 
CPC-664 mit grünem Monitor Superpreis 928,- 
CPC-6128m.gr.Mon. 1398,- CPC-6128m.Col.-M. 1898,- 
NLQ-401 Drucker 688,- Drucker DMP-2000 628,- 
Druckerkabel Schneider/Centronics 69,- 
Joyce PCW-8256 1648,- Joyce + PCOW-8512 2248,- 
Commodore c 128 798,- 


Hewlett Packard 


HP-11C 135,- HP-15C 238,- 
HP-82143 A Drucker 1098,- IL-Laufwerk 1548,- 
IL-Drucker 1248,- HP-71BD 1145,- 


Kartenl. für HP-71 BD 498,- Think-Jetm.IL-Anschl. 1325,- 
HP-IL Fi.-Disk-Laufw. 1899,- Sämtl. HP-Zubehör preisw. a. Anfr. 
Statistik-Modul für HP-41 75,- Preisbeisp.:AkkufürHP-41 99,- 
Akku (82120 A) und Netzteil (82066 B) für HP-41 135,- 
HP-80er, HP-110er und HP-150er Serie zu den bekannt 
günstigen ProSoft-Preisen!iil 


Disketten u. Zubehör bwostück 


31/2’ 1 DMarkendiskette 75,- 
31/2’ 2 D Markendiskette 129,- 


81/4’ 1 D No name 19,- 81/4’ 2 D No name 29,- 
31/2’ Datalife 1d, 80 Spuren, MF 350-01 95,- 
3'/2' Datalife 2d, 80 Spuren, MF 360-01 126,- 
8'/4' Datalife 1d, 5258-01 44,- 
81/4’ Datalife 2d, 550-01 54,- 
8'/4' Datalife 1d, 96 tpi, MD 577-01 59,- 


81/4' Datalife 2d, 96 tpi, MD 5857-01 
81/4’ Datalife HD, 1,6 MB 


ACHTUNG! ACHTUNG! ACHTUNG! 
„Da viele Hersteller nicht in der Lage sind, die vom Markt geforderten Stückzahlen 
zu liefern, können bei einigen Geräten kurzzeitige Lieferengpässe entstehen. 


--------- COUPON--------- X 


ProSoft GmbH, Postfach 207, 5400 Koblenz 
U) Bitte senden Sie mir Infos über: 


U) Hiermit bestelle ich per Nachnahme/ 
beiliegendem Scheck: 


Meine Anschrift: 
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Schneider 
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Programme vom Spezialisten: Super Schnell DELSTERNER STRASSE 23 
Versand! ... 5800 HAGEN 1 
MUSIC COMPOSERCass. DM 36.90 ; © 02331/72608 
MASTERCHESS Cass. DM 29.90 ELITE (DEUTSCH) 58,- 
en = un a Exploding Fist 35,- Computer 24 Monate mieten, 
WINTERGAMES Cass DM 3690 | | Friday the sch RE ee 
ZEN ASSEMBLER Cass. DM 64.90 Ghostbusters 38,- ee 
EL un) en Ei on HACKER 38,- BENERAEREENENENERNENERERNNERENNNERESHEREREEEE 
MINDSHADOW Cass. DM 39.90 | | Impossible Mission 38,- Neu Neu Neu 
ALIEN 8 Cass. DM 39.90 3 DGRAND PRIX 42,- PLLTEL LEI ENIRIUHRERRERRERRRERRRERRERRERRRRRRN R 
WAY OF THE EXPLODING Colour 20 35.- \ 
FIST Cass. om 3690 | | CPC 464 | Mietpreis 39,- | vergessen: 
Hanse monochrom ne — 
Natürlich haben wir auch Programme auf WAY OF THE TIGER j Schneider- _ 
Disk. Bitte GRATIS-Liste Disk./Cass. Ping-Pong 32,- aktıv 
\} . 
anfordern! SPACE INVASION 39,- Ba [ Mietpreis 64, | abonnieren! 
PLEXICOVERCPC4&4 DM 23— | | ‚via (Deutsch) a A Kauforei 
PLEXO COVERCPC664 DM 27— WINTER GAMES 35,- 10 
LIGHT PEN MODUL DM 99— Wintersports 35,- 
DISK BOX 35 ‚DM 29.90 CPC 6128 [Mietpreis 73,- | 
SYNTHESIZER CPC ZINN re 
STEREO DM 159— usw. Kaufpreis 
(mit Software+ Lautsprechern) "1548,- 
CENTRONICS KABEL DM 46.90 Versandkatalog gegen "DIALOG & FINANZ 
(Centronics Drucker an CPC) 2,- DM in Briefmarken resıı Finanzbuchhaltung für alle 
Wir liefern ab DM 100,— frei Haus! Alle Preise inkl. MWSt. colour CPC's Betriebssystem vortex 
Per V-Scheck oder Nachnahme (immer I.NN + Port Kaufpreis VDOS 2.0 
mit Porto!) Unter 100,—— plus Porto! I R 4 H Ei 2048,- = Buchen Im Bildschirmdialog 
Listenanforderung und Bestellung an: ab 100,- Verp. orto frei - freie Kontenwahl (120 max.) 
i - Personenkonten (1000 max.) 
Elektronik Center Pegröete EIER 
SoftwareServiceGenter N — Druckroutinen f, Joumaldr., 
Wachterstr. 3 Kaufpreis -Summenu. Salden!., Ktn.-dr., 
8170 Bad Tölz, Postfach 248 0, -UST-VA, BWA, Bilanz, GuV 
Tel.: 08041/41565 4930 Detmold inkl. Handbuch ‘* DM 395.- 
el. Schneider dt Perskt DM 275.- 
RR Tel.: 05231/29798 DMP 2000 0. 0. Ferskin. . 


Demo-Disk+Ino DM 25.- 


0651/48492 

N . Ständig mehr als 100 Spiele und viele ; 
Die Erschließung der | | tn enniie compüter service 
peripheren Welt Ihnen gerne zur Verfügung. 3 


Kaufpreis 
698,- 


Die Lieferung erfolgt zzgl. Porto + 


Verpackung. ‚Hauptmarkt 1: 5500 Trier 


mit dem Schneider CPC 


eHigh-S zweifach V-24 Schnitsigle: 
‚x. ekompokte Bauweise . 
« 300-19200 Baud 1125 kBaudl 


i ERFOG A 04,00 6128 
\e 
En JHHODODOOD ODDDS 
e parallel Interface | mit 48 EnAusgenaen 
® mit Gehöuse D SCHNEIDER - Angebote 0 oO 
"DM 219.- LI. 
a G: N u Graphic Adventure Creator DM 98,-- D r_ 
Mikroelektronik ss ® dito, Disc DM _118,-- D 
aa str. 7 6837 St.Leon-Rot Robin of Sherwood DM 30,-- Er 
el. 06227/52394 f | 
8 Who Dares Wins II DM _28,-- [] cl 
Zoids DM _28,-- 
FINANZBUCHHALTUNG [] Gyroscope DM 30,-- [] Ka 
für'alle Disketten- und Plattensysteme mit CP/M, MS-DOS oder PC/DOS Starion DM 30,-- ul 
Praxisbewährte Anwendung [) Spitfire 40 x DM 30,-- 0) Oo 
seit 1980 mehr als 200 Firmen. Alle Programme in COBOL D ROM - Software ebenfalls lieferbar. 
Die preiswerte Version: Journal, Konten, Summen- und Saldenliste, Um- VORTEX Erweiterung SP 5Sl2 nur DM 448,-- D vr 
satzsteuer-Voranmeldung, Jahreswechsel 
nur Sachkonten DM 866,— mit Kunden/Lieferanten DM 899,— Ausführliche Preisliste kostenlos von D < 
Die universelle Version mit vielen zusätzlichen Möglichkeiten wie: offene- Roland Kunze, Postfach 140526 
Posten-Liste, Mahnungen, Betriebswirtschaftliche-Auswertung (BWA), [] 8 L 
mandantenfähig, G + V, Bilanz, autom. Zahlungsverkehr, Adreßaufkleber, 
autom. Fakturier-Übernahme, Kostenstellen uv.m. 8 4800 BIELEFELD 14 [] 
SOF -Entwi Q 
DATA SOFT Software Ehtrickiiigenee m. b. H. Bremen DODODDDOD OD DO nv Nm 


2800 Bremen 1, Elsa-Brändströmstr. 32, Telefon: 0421-23 90 55 


CPC 464/664/6128 


BASICCOMPILER Taifun: Preis 125,- DM (Cass/Disk) 


Weltweit der einzige speziell auf den Schneider abgestimmte Basiccompiler. Dieser Compiler wurde von verschiedenen Fachzeitschriften mit 
großem Erfolg getestet, siehe unter anderem Testbericht in dieser Ausgabe von CPC International und Januar Ausgabe CHIP. Dieser Compiler ist eine 
Weiterentwicklung des bekannten und bewährten ISSCOM. (Zitat Chip: Wohl das wichtigste Programm für den Schneider überhaupt). Unter anderem 
verfügt dieser Compiler über mehr ats 150 Befehle, Link-Merge Optionen zum Verbinden von Object-Programmen und ermöglicht außerdem 

das Kompilieren von bis zu ca. 20 KB langen Object-Programmen in einem Teil. Max. Geschwindigkeitssteigerung bis zu 100 mal 


UNICON Datenkommunikationspaket: Preis 99,- DM 


Mit diesem Kommunikationspaket erwerben Sie zu einem sensationell günstigen Preis eines der leistungsfähigsten Systeme überhaupt. Siehe unter anderem die überragenden Testberichte 
in der Januar CPC International und den Vergleichstest im CPC Weihnachtssondertieft. i 

Bitte überzeugen Sie sich selbst von den Leistungsmerkmalen: Floppy und Drucker gleichzeitig anschließbar, Dialoggesteuerte Parameterveränderung, VollHalb duplex, UP-DOWN Load, bis zu 
300 Baud beliebig einstellbar, behebig lange Texte können übertragen werden, abspeichern auf Cassette/Diskette, übertragen von Programmen HEX-ASCII, Textverarbeitungssystem, Basicer- 
weiterungsprogramm, deutscher Zeichensatz, Maus Simulation über Joystick und Tasten. 

Zum Lieferumfang gehört: Software (Cassetten + Diskettenversion), anschlußfertige Verbindung zu Akustikkopplern (lätfreie Montage, spielend einfach ohne Öffnen des Rechners), ausführ- 
liche Bedienungsanleitung (mit vielen Mailbor-Hummern) 


Mouse Preis 198,- DM (Disk) 


Sicher haben Sie schon des öfteren von größeren Systemen gehört, bei denen die Möglichkeit besteht, mittels einer Mouse (das Stever- und Eingabemedium der Zukunft) dem Rech- 
ner Befehle oder Anweisungen durch direktes Steuern eines Pfeils mitzuteilen. Diese Möglichkeit haben Sie jetzt auch mit Ihrem Schneider-Computer. Wir liefern Ihnen ein komplettes System 
anschlußfertig für Ihren Computer. Die Mouse selbst genügt höchsten Ansprüchen (komplette Gummiummantelung). Dazu kefern wir Ihnen noch ein besonders vielseitiges Softwarepaket: 
=.Basicerweiterung für eigene Anwendungen mit Befehlserweiterung (Besonders für Graphik CIRCLE, FILL usw.) 

- 4 Farbzonen auf dem Bildschirm. Dadurch 8 Farben im MODE 2 

- Möglichkeit, Menues wie unter GEM (32-Bit Betriebssystem) für eigene Anwendungen . 

- Zusätzlich superschnelles und komfortables Graphikhilfsprogramm mit Pinsel, Spray Effekt, Rasterzeichen, Fi, Kreisen usw. 


. SUPER PAC 80 Preis 130,- DM (Cass/Disk) 


Leistungsfähiges Z-80 Entwicklungssystem bestehend aus speicherunabhängigem Macroassembler, zusätzlichem Editor, Möglichkeit der Verarbeitung von mit Textsystemen erstellten Sourcefiles, Disassembler mit 
kombiniertem Reassembler, Monitor, Singlestepper, Directassembler usw. Die Programme können kombiniert werden. Dieses Entwicklungssystem ist eine Weiterentwicklung der bekannten Programme ISSASS, 
ISSDIS, ISSMON, (Testbericht siehe unter anderem CHIP Januar 86) 


Ale Produkte sind auf allen Schneider Computern (464, 664, 6128) kauffähig. Die CPC 464 Programme werden auf Cassette gebefert. Die Programme für den CPC 664.und CPC 6128 werden auf Disk (Mehrpreis 
15,- DM) ausgeliefert. Erhähtlich auch bei Ihrem Fachhändier. i 


BIALKE - BERENDSEN — GLISZCZYNSKI 
—— Softwa ——————— 
Beimoorweg 2-4 - D-2070 Ahrensburg 
=@04102/43940 


TAIFUN 
BASIC-Compiler 


CPC 4641 DM 124,90 
CPC 664/6128: DM 139,90 


Das überlegene Programmiersystem für alle |" 
CPC's (Kassette und Diskette) ermöglicht 


MATHEMATISCHE STATISTIK 
MIT GRAPHISCHER AUSWERTUNG 


D 79.- 


VERLAG 


SCHNEIDER CPC 
SOFTWARE 


BIORHYTHMUS 
D 34.-/ CC 24.- 


HOME MANAGER 
DAT / KALK / TERMIN 
D_78.-/C 69.- 
DISKY PROGRAMMDATEI D 59.-/C 49.- 


MUSIKDATEI. D 59.-/C 49.- 
FILM—- & VIDEODATEI D 59.-/C 49.- 


MULTIDATEI D 89.- 


MIT MATHEMATHISCHEN SONDERFUNKTIONEN 


CHIP (8/85); 

"Bei ISSCOM 1 aus dem gleichen Hause 

tiandelt es sich um eines der wohl wichtig- 

sten Programme für den Schneider über- 

haupt.” ß k 
er-Schau (7/85): 

"ISSCOM 1 wendet sich an den Basic-Pro- 

grammierer und zählt wohl zu den wichtig- 

sten Hilfsmitteln, denn _” 

CHIP (1/86); 

"Mit ISSCOM 1 steht ein leistungsfähiger 

Compiler für den CPC 464 zur Verfügung, mil 

dem es möglich ist, BASIC-Programme en 

bioc in die für Computer verständliche 

Maschinensprache zu übersetzen._” 

"Der Vorteil: Die Ausführungsgeschwindig- 

keit erhöht sich um den Faktor 20 bis 200.” 


Eine Aufzählung der zusätzlichen Vorteile 
von TAIFUN würde den Rahmen dieser An- 
zeige bei weilem sprengen, denn er stellt nun 
gleichzeitig noch eine sehr umfangreiche 
BASIC-Befehlserweiterung (CIRCLE, FILL 
etc.) dar. 


Kostenlose Informationen über unser gesam- 
tes Lieferspektrum und Bestellungen bei: 


KALKULATION & GRAPHIK 
D 78.-/C 69.- 


GSS —- VERLAG sportplatzstrasse 12 3552 wetter 


Haendleran/ragen erwuenscht *** Soflwareauloren gesucht 


er GERDES ERS Info gegen Rusckporto 
ImperlalSOFTware Systems 
: Heldegartenstraße 36 _ 
D 5300 Bonn I 


‚Tel: 02268/252474 


Tips & 


Tips & Tricks zu WORDSTAR 


Suchen und Austauschen mit Optionen 


Sowohl beim einfachen Suchen als auch in der 
Kombination mit dem Austauschen möchte 
man häufig die zeitverzögernde Frage nach 
den Optionen übergehen. In einem solchen 
Fall drücken Sie anstelle der RETURN- ein- 
fach die ESC-Taste. Trotz aller Vorteile des 
Editierens am Bildschirm kommt es immer 
wieder vor, daß man später im Ausdruck doch 
noch einen Fehler feststellt. Handelt es sich 
um einen mehrseitigen Text, so dauert es ge- 
raume Zeit, bis man mit dem Befehl *C zu 
der entsprechenden Seite vorgeblättert hat. In 
solchen Fällen erkennen Sie sehr schnell die 
Bedeutung der Befehle “QF (für das Suchen) 
und *QA (für Suchen und Austauschen). 


Wenn Sie mit den möglichen Optionen arbei- 
ten müssen, dann ist es gut, deren Bedeutung 
und Befehlsform auswendig zu wissen. Sie er- 
sparen sich so bei der Frage nach den Optio- 
nen die Eingabe des Fragezeichens und die 
Einblenden des daraufhin erfolgenden, erwei- 
terten Hilfsmenues. Sie können nämlich bei 
der Frage nach den Optionen sofort den 
Kennbuchstaben eingeben. Das Wort >die< vor 
dem Wort >Einblenden< muß zum Beispiel 
richtig >das< heißen. Setzen Sie den Cursor 
bitte an das Ende dieses Blockes und geben 
dann hintereinander ein: 


AQA und >RETURN< 
die und >RETURN< 
das und >RETURN< 
b4 und >RETURN< 
3-mal >n< dann j 


Sicher waren Ihnen die ersten drei Schritte 
dieses Verfahrens schon geläufig, aber was 
bedeutet >b4<? 


Nun, da wir unmittelbar am Ende des Blocks 
waren und feststellen konnten, daß das Wort 
>die< rückwärts gesehen bis zur Austausch- 
stelle insgesamt 4-mal vorkommt, haben wir 
die Optionen des >RÜCKWÄRTSSUCHENS< 
kombiniert mit dem Hinweis, >wie oft< dieser 
Vorgang zu wiederholen sei. Natürlich muß 
man das nicht so genau auszählen. Sie können 
einfach die Zahl 10 eingeben und so oft ver- 
neinen, bis Sie automatisch zur Austauschstelle 
gelangen. Welche Optionen möglich sind, und 
wie Sie sich diese leicht merken können, ent- 
nehmen Sie der nachfolgenden Tabelle. Geben 
Sie dabei zum Beispiel >g< ein, so beginnt das 
Suchen autoamtisch am Anfang Ihrer Datei. 


g = global, der gesamte Text wird durchsucht 

b = backwards, es wird rückwärts gesucht 

w = words, es werden nur >ganze< Wörter 
gesucht 

u = undifferent, es wird ohne Rücksicht auf 
Groß/Kleinschreibung gesucht 

ZAHL = das gleiche Wort wird n-mal gesucht 


Wie Sie an dem obigen Beispiel gemerkt ha- 
ben, kann man ein Merkmal eingeben, es kön- 
nen aber auch mehrere Merkmale kombiniert 
werden. Wir haben das >die< deswegen 4-mal 
suchen müssen, weil es z.B. auch in >dieses< 
enthalten war und gefunden wurde. 

(Herbert May). 
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(CP/M) UNTER BASIC 


CONTROL-P 


Mit dem Programm "CONT-P" wird durch 
CONTROL-P der Drucker zu der Bildschirm- 
ausgabe parallel geschaltet. Durch CONTROL- 
SHIFT-P schalten Sie den Drucker wieder aus. 
Sie können so z.B. durch CONTROL-P und 
CAT das Inhaltsverzeichnis auf dem Drucker 
ausgeben. Sie können aber auch ein Protokoll 
all ihrer Eingaben anfertigen. Der Drucker ist 
jederzeit zu aktivieren, also während ein 


list 

1 ‘CONTROL-F (CF/M) 

2 'VON ELEMENS FERSCH 
4 MEMORY %8FFF 

5 FOR I=%9000 TO %9I0OBO:READ EL=:F 
10 DATA 32, 7, 144, 205, 227, 18 
20 DATA 0, 0, 0, 0, 129, 18, 144 
30 DATA 0, 0, 245, 197, 21535, 229 


UNTER BASIC 


Programm abläuft. Sie müssen nur das Listing 
"CONT-P" eingeben und mit RUN starten. 
Noch ein Tipp: wollen Sie das Programm als 
Binärfile abspeichern, müssen Sie den Befehl 
call &9000 streichen, da durch den Aufruf das 
Programm verändert wird. Laden Sie dann das 
Binärfile und rufen es mit call &9000 auf. 


x#(Klemens Fersch VRRRRIIRIIIRERRERRRD 86 - DOZOMEKE 


OKE I,KL:NEXT:CALL %9000 
8, 201, © 


y ni 


02,27 


40 DATA 205, 30, 187, 32, 6, 225, 209, 193 


50 DATA 241, 251, 201, 243, 203, 
60 DATA 24, 243, 205, 105, 32, 6 
70 DATA 144, 183, 32, 233, 237, 

80 DATA 237, 83, 112, 144, 62, i 
970 DATA 144, 50, 90, 187, 237, 8 
100 DATA 237, 91, 212, 189, 2737, 
110 DATA 17, 149, 144, 237, 83, 

120 DATA 163, 144, 195, 29, 144, 
130 DATA 229, 254, 13, 204, 164, 


8, 58, 16% 
91, 9, 1897 
95, 17, 98 
5, 9, 1897 
83, 161, 144 
212, 189, 50 
245, 197, 213 
144, 254, 10 


140 DATA 204, 164, 144, 225, 209, 195, 241, 207 


150 DATA 0, 0, 58, 112, 144, 183 
160 DATA 62, 207, 237, 91, 112, 
170 DATA 187, 237, 85, 91, 197, 
180 DATA 144, 237, 85, 212, 189, 
190 DATA 163, 144, 195, 29, 144, 
200 DATA 229, 205, 164, 144, 225 
210 DATA 195, 0, 0, 0, 205, 45, 
220 DATA 71, 58, 163, 144, 185, 
220 DATA 2423, 0, 0, 0, 0, 0,0, 
Ready 


‚ 40, 165 
144, 50, 90 
237.04, 4161 
62, 0, 50 

245, 197, 213 
„ 209, 193, 241 
189, 216 

200, 120, 24 


18) 


Wir wollen diesmal einige Prozeduren und 
Funktionen schreiben, die Sie auch in eigenen 
Programmen ohne Änderung verwenden kön- 
nen. Dabei werden Sie auch noch ein paar 
neue Sachen lernen. Und zum Schluß kommen 
dann Meldungen unter der Rubrik "Vermisch- 
te Nachrichten". 


Zunächst aber sei nochmals auf den kleinen 
Unterschied zwischen Werte- und Variablen- 
parametern hingewiesen: Werteparameter wer- 
den nur vom Hauptprogramm an die Prozedur 
übergeben, nicht aber zurück. Das geschieht 
dadurch, daß im Speicher des Computers eine 
komplette Kopie der Variablen angelegt wird. 
Natürlich verbraucht das vor allem dann sehr 
viel Speicherplatz, wenn Sie ein großes Array 
übergeben. In einem solchen Fall sollten Sie 
auch dann Variablenparameter bevorzugen, 
wenn Sie sie nicht wirklich benötigen (Das ist 
aber auch die einzige Ausnahme!). Dort wird 
der Prozedur nämlich lediglich die Adresse 
der verwendeten globalen Variablen mitgeteilt; 
es wird also mit denselben Speicherplätzen ge- 
arbeitet, die auch das Hauptprogramm be- 
nutzt. Wenn Sie diese Methode anwenden, 
müssen Sie aber darauf achten, daß die Va- 
riablenwerte nicht ungewollt verändert 
werden. 


Nun aber zu unserer ersten Prozedur. HiSoft- 
Pascal kennt keinen Befehl, mit dem der 
Textcursor auf dem Bildschirm an eine be- 
stimmte Stelle gebracht werden kann, ähnlich 
der BASIC-Anweisung LOCATE. Die folgen- 
de Prozedur ersetzt das: 


PROCEDURE locate (x, y : INTEGER); 

VAR 
i : INTEGER; 

BEGIN 
WRITE (CHR(30)); {Cursor nach links oben} 
IFx>1 


THEN 

FOR i := 2 TO x DO 

WRITE (CHR(9)); {Cursor nach rechts} 
IFy>1 
THEN 

FOR i := 2 TO y DO 


WRITE (CHRC10)) {Cursor nach unten} 
END; 


Eine Erklärung der Funktionsweise erübrigt 
sich hier wohl. Mit dem neuen Befehl locate 


können Sie jetzt Texte an jeder beliebigen 
Bildschirmstelle ausgeben. 


In mathematischen Programmen wird gele- 
gentlich die Fakultät einer Zahl benötigt. 
Definiert ist dies wie folgt: 


n! :=:1I1*#*2*,..*n 


PROGRAMMIER-SPRACHEN 


PROGRAMMIER-SPRACHEN 
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Fakultät") 


Eine Funktion übernimmt die Berechnung: 


FUNCTION fak (n : INTEGER) : INTEGER; 
VAR 
i, f : INTEGER; 
BEGIN 
f :=1; 
FOR i := 1 TO n DO 
2 ee 1 
fak := f 
END; 


Die Überprüfung, ob i größer oder gleich I ist 
(sonst stimmt die Berechnung nicht), kann im 
Hauptprogramm vorgenommen werden. Sie 
können aber auch selbst die Funktion ent- 
sprechend umbauen. 


Prozeduren sind Unterabschnitte eines 
Hauptprogramms. Das kann die Übersicht- 
lichkeit eines Programms erhöhen, wenn Sie 
Prozeduren noch weiter unterteilen, indem Sie 
Unterprozeduren einführen. Sie werden das 
v.a. dann tun, wenn ein komplexer Vorgang 
Teil einer umfangreichen Prozedur ist. Man 
kann das natürlich auch übertreiben; die 
Prozedur sort im Programm aus Teil 7 kann 
von dieser Vorgehensweise jedoch durchaus 
profitieren: 


PROCEDURE sort (VAR z : 
VAR 

i : INTEGER; 

tausch : BOOLEAN; 


matrix); 


PROCEDURE swap (VAR a, b : INTEGER); 


VAR 
hilfe : INTEGER; 
BEGIN 
hilfe := a; 
a:=b; 
b := hilfe 
END; 
BEGIN {sort} 
REPEAT 
tausch := FALSE; 
FOR i := 1 TO 9 DO 
ir z[i] > z[i+1] 
THEN 
BEGIN 
swap (z[i],z[i+1]); 
tausch := TRUE 
END 
UNTIL NOT tausch 
END; 


Die Prozedur zum Vertauschen zweier Zahlen 
wurde in Analogie zu verschiedenen BASIC- 


Dialekten swap genannt (von englisch "to 
swap" = aus-, vertauschen). 
Sie können in einer Prozedur selbstver- 


ständlich auch andere Prozeduren aufrufen. 
Auch das sind ja vollwertige Pascal-Befehle. 
Allerdings müssen Sie diejenigen Prozeduren, 
die Sie verwenden wollen, zuvor schon de- 


setzen des Programms von oben nach unten 
vor. Deshalb sind nur Befehle bekannt, die 
der Compiler bereits übersetzt hat. Es gibt 
jedoch eine Möglichkeit, dem System mitzu- 
teilen, daß eine Prozedur erst weiter hinten 
folgt. Das kann Ihr Programm gelegentlich 
etwas ordentlicher aussehen lassen. Bei be- 
sonderen Programmiertechniken wie z.B. der 
mutüllen Rekursion ist das sogar nötig (Auf 
diese Technik wollen wir im Rahmen dieser 
Serie nicht eingehen; sie ist etwas für fort- 
geschrittene Programmierer. Wer sich in- 
formieren will, findet genügend Fachliteratur). 


Die Methode der "Vorwärts-Deklaration" ist 
ganz einfach: Sie schreiben den Kopf der 
Prozedur, d.h. Namen und evtl. Parameterliste, 
gefolgt von einem Strichpunkt. Anstelle der 
eigentlichen Prozedur folgt nun das Wort 
FORWARD und wieder ein Strichpunkt. Das 
war’s auch schon. 


Wenn Sie dann weiter hinten die Prozedur 
endgültig definieren, müssen Sie nur noch den 
Namen anführen, die Parameterliste unter- 
bleibt. Es ist jedoch ratsam, sie trotzdem 
hinzuschreiben - als Kommentar in ge- 
schweiften Klammern. Dann weiß man auf 
einen Blick Bescheid und erspart sich blättern 
im Listing. Unnötig zu sagen, daß auch 
Funktionen als. FORWARD deklariert werden 
können. 


Jetzt wissen Sie so ziemlich alles, was es über 
Prozeduren und Funktionen zu wissen gibt. 
Damit Sie auch vollständig über die TYPE- 
Deklaration informiert sind, sei Ihnen hier 
noch gesagt, wie Sie eigene Variablentypen 
definieren können. 


TYPE definiert nicht nur neue Namen für 
komplexe Datenstrukturen, sondern kann auch 
neue Variablentypen einführen. Das sieht dann 
etwa so aus: 


TYPE 
typname = (wert,wert,...,Wert) 
Für ein Musikprogramm könnten Sie 
definieren: 
TYPE 
cdur = (c,cis,d,dis,e,f,fis,g,gis,a,b,h,c); 
VAR 
ton : cdur; 


Die Variable ton kann jeden Wert des Typs 
cdur annehmen. Sie könnten also etwa schrei- - 
ben "ton := f" oder "ton := fis". Dazu gibt es 
noch zwei weitere Befehle: 

SUCC(x) bestimmt den Nachfolger einer Va- 
riablen. SUCC(ce) ist beispielsweise cis. Diese 


Funktion läßt sich auf selbstdefinierte Typen, 
INTEGER- und CHAR-Variable anwenden. 
Die Abkürzung kommt vom englischen Wort 
für Nachfolger "successor". 

PRED(x) kommt von "predecessor" 
stimmt in gleicher 
PREDA(h) ist also b. 


und be- 
Weise den Vorgänger. 


Die Anwendung selbstdefinierter Typen, auch 
Aufzählungstypen genannt, ist sehr ein- 
geschränkt. Die Werte können nämlich nicht 
über die Tastatur eingelesen und auch nicht 
mit WRITELN ausgegeben werden. Als 
Indizes für ein Array können sie jedoch 
dienen. In der Praxis werden Sie Variablen 
vom Aufzählungstyp nur selten begegnen, 
kennen aber sollten Sie sie. 


Eine Pascal-Prozedur kann sich auch selbst 
aufrufen. Diese Möglichkeit bezeichnet man 
als Rekursion. Es ist eine der kompliziertesten 
Eigenschaften der Sprache Pascal - und zu- 
gleich eine der faszinierendsten. Am besten 
kann man sich das anhand einer mathe- 
matischen Definition der Fakultät vergegen- 
wärtigen, welche lautet: 


0: 


=1 
n! :=n* (n-I1)! 


Vorhin haben wir die Fakultät durch Wieder- 
holung, d.h. iterativ berechnet. Mit Hilfe die- 
ser Definition wollen wir es rekursiv ver- 
suchen: 


FUNCTION fak (n : 
BEGIN 
IFn=0 
THEN 
fak := 1 
ELSE 
fak := 
END; 


INTEGER) : INTEGER; 


n * fak(n-1) 


Hier steht ein Funktionsaufruf mitten in der 
Funktion selbst. Trotzdem sieht die FUNC- 
TION im Ganzen einfacher aus als die itera- 
tive Berechnung - sie ist praktisch nur eine 
wörtliche Übersetzung der mathematischen 
Defintion ins Englische. Sie werden sehen, 
daß Sie auf rekursive Weise Probleme lösen 
können, deren Lösung Sie selbst nicht kennen. 
Ein schönes Beispiel dafür ist das "Hanoi"- 
Programm aus dem Handbuch, das Sie sich an 
dieser Stelle vielleicht einmal ansehen sollten. 


Das war’s für heute. Jetzt haben Sie im 
Prinzip das Rüstzeug für die Entwicklung 
eigener Pascal-Programme. Nur einige grund- 


legende Datenstrukturen sollten Sie noch 
kennenlernen. Dazu werden wir in Teil 9 eine 
kleine Adressverwaltung programmieren 


(Alwin Ertl). 
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NACHTEST 
VIDEO-DIGITIZER 
FÜR DEN SCHNEIDER CPC 


Jetzt gibt es für den CPC den VIDEO 1000 
Videodigitizer, der für DM 395,-- den gra- 
phikinteressierten CPC-User des Herz höher 
schlagen läßt. Geliefert wird ein sauber auf- 
gebautes Interface (ohne Gehäuse), das mit 
der 50-poligen Schnittstelle verbunden wird. 
Die Software wird auf Diskette mitgeliefert 
(nicht kopiergeschützt). Das Videosignal wird 
vom. Fernsehgerät, der Kamera oder dem Vi- 
deorekorder zur Eingangsbuchse des Interfaces 
geführt. Zwei Fernsehbilder werden pro Se- 
kunde abgetastet. Ist das Fernsehbild auf dem 
Bildschirm, kann mit den Cursortasten die 
Helligkeit eingestellt und das Bild nach oben 
oder unten geschoben werden. Mit der Taste 
>R< wird die Digitalisierung angehalten und 
die Graphik kann abgespeichert oder mit dem 
in der Software installierten Hardcopypro- 
gramm ausgedruckt werden. In Mode 2 entste- 
hen zweifarbige, in Mode 1 vierfarbige und in 
Mode 0 sechzehnfarbige Bilder, deren Farben 
mit den Ziffern des Zehnerblocks je nach 
Geschmack veränderbar sind. Die Auflösung 
der Bilder: Mode 2 - 640 x 200, Mode 1 - 320 
x 200 und Mode 0 - 160 x 200 Pixel. 


Als Zugabe können mit dem VIDEO 1000 
auch Kurzfilme erstellt werden, dabei werden 
8 aufeinanderfolgende Fernsehbilder abgespei- 
chert. Um 8 Bilder in den Speicher zu bekom- 
men, wird das Fernsehbild verkleinert auf 320 
x 100 Pixel (33 k). Die Geschwindigkeit des 
Kurzfilmes ist einstellbar. Der Kurzfilm kann 
auf Diskette abgespeichert werden. 


Die Hardcopy funktioniert nur in Mode 2, 
mehrfarbige Bilder kann man aber auch mit 
eigenen Programmen in verschiedenen Grau- 
stufen ausdrucken. Für den Schneiderdrucker 
NLQ 401 ist im Programm eine Änderung der 
Zeile 1100 POKE&A15A,12 vorzunehmen. Ei- 
ne Demodiskette mit Bildern und zwei Kurz- 
filmen bekommt man für DM 15,--. 
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ARNOR-SOFTWARE 


Die Firma Arnor produziert bereits seit Okto- 
ber 1984 Software für den CPC 464 und hat 
eine führende Position auf dem CPC Soft- 
waremarkt für professionelle Anwender errun- 
gen. Arnor-Software ist nicht nur Software, 
die nur schnell mal für den CPC geschrieben 
wurde - sondern Arnor garantiert, daß jeder 
Käufer mit seinem Kauf zufrieden ist, da 
Arnor innerhalb von 7 Tagen nach dem Kauf 
das gekaufte Produkt mit voller Kaufpreis- 
rückerstattung zurücknimmmt - (So zumindest 
in England, inwieweit sich deutsche Lieferan- 
ten daran halten ist unbekannt). Ferner 
garantiert Arnor nach diesen 7 Tagen für ein 
volles Jahr Fehlerfreiheit für Herstellungs- 
fehler. Das Arbeiten mit Arnor-Software zeigt 
sofort, was man unter Qualität versteht. Bei 
einer derartig guten Software ist es leicht eine 
derartige Garantie abzugeben. 


Arnor-Software in 4 Formaten 


Arnor produziert seine Software in 4 ver- 
schiedenen Formaten. Der Käufer kann 
wählen, welche seinen Ansprüchen und seinem 
Geldbeutel am besten entspricht: 


1. Die Kassette 


Die Kassette ist für den CPC 464-Besitzer, 
der kein Diskettenlaufwerk besitzt, die preis- 
günstigste Lösung. Arnor-Kassettenprogramme 
arbeiten nicht mit dem Diskettenlaufwerk. 
Einige Arnor-Programme sind nicht auf Kas- 
sette erhältlich. Kassettensoftware kann nur 
von Arnor auf Diskette übertragen werden. 


2. Die Diskette 


Der ernsthafte CPC-Anwender wird sich 
Disketten-Software kaufen. Die Vorteile sind 
schnelles Laden und Sichern von Files. Die 
Programmladezeiten sind minimal, ungefähr 
16 K auf RAM werden pro Arnor-Programm 
verwendet. 


3. Die ROM-Version 


Alle CPC-Besitzer, die eine Amstrad-kom- 
patible ROM-Erweiterungsbox besitzen, kön- 
nen Arnor-ROMs in die Amstrad-kompatible 
ROM-Box einsetzen. Auf die Vorteile des 


Peues aus Enalamd 


ROM-Einsatzes werden wir noch zu sprechen 
kommen. 


4. Die AD2-Kassette 


Die Vorteile der Software im ROM werden 
besonders dann deutlich, wenn man die AD2 
Kassette (Cartridge) von Arnor verwendet. 
Weder eine ROM-Box noch eine sonstige 
besondere Hardware-Platine sind notwendig. 
Die Adaptereinheit wird einfach an der 
Rückseite des CPC 464, CPC 664 bezw.des 
CPC 6128 auf den Expansionsport aufgesteckt. 
Der Expansionsport ist durchgezogen, um 
weitere Peripherie oder sonstige Erweiterun- . 
gen oder die Arnor-4-Weg-ROM-Karte 

aufzustecken. 


Vorteile der ROM-Software: 


ROM ist die Bezeichnung für Read Only Memory 
(NUR-LESE-SPEICHER). Ein Programm, das 
einmal in diesen Speichertyp eingeladen ist, 
steht - wie das Basic des CPC - ständig zur - 
Verfügung. Die Vorteile sind: 


1. Ständige Verfügbarkeit, kein Nachladen 


2. Speicherplatz sparend 
(alle Arnor-ROMs benötigen nur einen 
geringen Arbeitsspeicher und lassen ein 
Maximum des RAMs für Briefe, Pro- 
gramme usw. frei) 


3. Unlöschbarkeit 


Read Only Memories (ROMs) zeichnen sich 
dadurch aus, daß es sich hier nur um 
Lesespeicher handelt. Aus diesem Grunde ist 
es kaum möglich, das Programm zu zerstören. 
Selbst bei Ausfall des Computers bleibt das 
Programm erhalten. 


ROM-Software erweckt den Eindruck einer 
sehr aufwendigen Geldausgabe. Aber mit dem 
ersten Versuch wird man sich bereits fragen, 
warum man zuvor von Kassette oder Diskette 
eingeladen hat. Bei Einsatz der Vierfach- 
ROM-Karte an die AD2-Expansion können 
bis zu 5 ROM-Inhalte in die Maschine einge- 
laden werden. 
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Shekhana Computer Service: 


Die Firma Shekhana zeigte ihre neuesten CPC 
Spiele. SCHNEIDER-aktiv wird in den näch- 
alles was Rang und Namen hat und sich mit | sten Ausgaben über diese Spiele berichten. 
den CPC bzw. PCW beschäftigt in den noblen 

Ausstellungs- und Besprechungsräumen - der 

Champagne Suite - des Novotels London. 


Transform: 


Ein neuer Ausstellerrekord war zu verzeich- 
nen, so daß ein weiteres zweites Stockwerk 
hinzugemietet wurde. So stand für diese 
Ausstellung die doppelte Ausstellungsfläche 
zur Verfügung. Neu war das in der Messe in- 
tegrierte "Amstrad-Theater", in dem drei Tage 
lang die Amstrad Spezialisten - unter anderen 
der Amstrad-Techniker Roland Perry Fragen 
rund um den Amstrad beantworteten. Ferner 
wurden hier täglich Kurse und Vorträge abge- 
halten. 


Veranstalter dieser "Amstrad-Computer-Show" 
war Derrek Meakin - Herausgeber der engli- 
schen AMSTRAD-Zeitung "Computing with 
the AMSTRAD". Ihm ist größtes Lob für diese 
gelungene Show auszusprechen. 


AMSTRAD-Messe in London 
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Caxton: 


Die Firma Transform hat sich auf den CPC 
6128 und den PCW 8256 und PCW 8512 spe- 
zialisiertt und zeigte die Programme "Ma- 
sterFile", "MasterCalc" und "Draw". Inter- 


essant waren die gezeigten Disketten-Boxen 
dieser Firma. 


Laxton 


Saxon: 


Die Firma Saxon zeigte ihre Programme "Mi- 
cro File" und "Micro Word" die sowohl auf 
dem CPC 6128 als auch auf dem PCW 8256 
bzw. PCW 8512 laufen. Ferner wurde das 
Programm "Flexilabel" gezeigt - ein Programm 
zum Erstellen und Drucken von Aufklebern. 


Die Firma Caxton zeigte hochqualitative, 
leicht bedienbare, kommerzielle Software für 
den PCW 8256 und PCW 8512 Joyce. Seit 4 
Jahren hat sich die Firma Caxton darauf spe- 
zialisiert, Software für verschiedene Computer 
u. a. für den IBM-PC und anderen Computern 
mit den Betriebssystemen PC-DOS, MS-DOS 
und CP/M zu vertreiben. Caxton hat sich 
durch die Programme "Cardbox", "Touch‘n‘ 
Go", "Brain Storm", "Smartkey" und "Scratch 
Pad Plus" einen Namen gemacht. Diese Pro- 
gramme sind nun für den Amstrad erhältlich. 


Micro Link: 


Die Firma Micro Link arbeitet auf dem Ge- 
biet der elektronischen Kommunikation. Mit 
dem Programm "Weather Link" ist es möglich, 
von dem Wettersatelliten die neuesten Bilder 
in den Amstrad abzurufen. Mit dem Pro- 
gramm "Flora Link" können Blumen bestellt 
und an jedem Ort in England zugestellt wer- 
den. Mit dem Programm "Theatre Link" kön- 
nen in allen Londoner Theatern Eintrittskarten 
gebucht werden. 


Computing with the Amstrad: 


Der Verlag zeigte auf einem besonders schö- 
nen Ausstellungsstand seine Produkte. Der 
Showbesucher konnte die letzten Ausgaben der 
englischen AMSTRAD-Computerfachzeit- 
schrift "Computing with the Amstrad" und 
deren Sammelordner sowie die Begleitdisket- 
ten und -kassetten zu den einzelnen Zeit- 
schriftenausgaben kaufen. Ähnlich der "Soft- 
Box" von SCHNEIDER-aktiv wird dem Leser 
der Zeitschrift "Computing with the Amstrad" 
hier ein Programmservice angeboten. 


Computing: 


Loadplan: 


Die Firma Loadplan ist der offizielle Vertreter 
der Panasonic 3" Disketten. Mit der Firma 
Loadplan teilte sich eine "Software Mailorder 
Gruppe" den Stand, die einen Katalog zeigte, 
der die derzeit erhältliche Software und das 
derzeit erhältliche Zubehör für den PCW 8256 
bezw. PCW 8512 enthält. Diese Usergruppe 
hat sich auf die Lieferung und Empfehlung 
guter und schneller Programme für den Am- 
strad und den IBM-PC bzw. dessen Kompa- 
tible spezialisiert. 


Load & Run: 


Die Firma Load & Run zeigte erstmals zwei 
neue Produkte: "Tele-Add" und "Stock Con- 


trol" für den PCW 8256 und PCW 8512 Joyce. 
Der Programmierer dieser Programme war 
selbst anwesend und demonstrierte derzeit er- 
hältliche Software für den PCW. 


Grayfield: 


Die Firma Grayfield hat sich darauf speziali- 
siert, Computerkurse mit Programmtraining 
durchzuführen. In diesen Trainingskursen 
wird unter anderem gezeigt, wie CAD-Pro- 
gramme laufen und das Programm "Loco- 
script" bedient wird. Die Firma Grayfield 
führt ihre Kurse nicht nur in London, sondern 
auch in anderen englischen Städten wie Bri- 
stol, Birmingham, Manchester und Glasgow 
einmal im Monat durch. Auch diese Firma hat 
sich auf den PCW 8256 bzw. PCW 8512 spe- 
zialisiert. 


Croydon: 


Die Firma Croydon führt Computer-Kurse 
durch, in denen der Anwender die Business- 
Software kennenlernt. In diesen Kursen wird 
nicht nur die Anwendung der Programme 
trainiert, sondern auch das Grundwissen ver- 
mittelt. Die Firma Croydon hat erkannt, daß 
viel Ärger und Geld gespart werden können, 
wenn mehr Grundwissen um den Computer 
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vorhanden ist. Eine Erkenntnis, die in 
Deutschland noch nicht voll erkannt ist. 


Minerva: 


Die Firma Minerva zeigte ein einfach anzu- 
wendendes Dateiprogramm für den PCW 8256 
bzw. PCW 8512. Auch ein Dateiprogramm für 
den CPC 464/664 und 6128 ‚wurde gezeigt. 


Amstrad 128K Microcomputer (v3) 


9 1985 Amstrad Consumer Electronics plc 
and Locomotive Software Ltd. 


BASIC 1.1 
Ready 

Ihelp 
Random Access Utilities V1.081 
IEDIT IRDSEC IOPEN 
IPTR I INPUT IPRINT 
ICLOSE IEXEC IANSW 
IONERR IGERR IGPTR 
ICREATE IGKEY IREPORT 
IGFILE IGFSIZE IGPOS 
ISPOS ISAVE ILOAD 
IGVER IERRON IERROFF 
IFEXIST IFORMAT IHRSEC 
IRETRY IPTRR IEPAR 
ISPOKE ISPEEK IDUMP 
IDERIVE IDUSER IOFFSET 


nen Daten in wenigen Sekunden finden und 
sortieren, denn sie haben aufwendige Such- 
und Sortiermöglichkeiten. 


Die Dateiprogramme der Firma Minerva kön- a Ring 


Connect Systems: 


Connect zeigte mit ihrer neuesten Version des 
Programms "Money-Maker" ein Finanzmana- 
gerprogramm für den persönlichen bzw. Busi- 
ness-Bereich. Alle finanziellen Bewegungen 
werden festgehalten, analysiert und am Schluß 
zu einem Ergebnis zusammengefaßt. 


Babani: 


zeigte ein neues Textverarbeitungsbuch für 
den PCW 8256 und PCW 8512. Babani Bücher 
sind preisgünstige Paperback-Ausgaben. Be- 
reits mehrere sind speziell für die Amstrad 
Computer erschienen. 


Overbase: 


Die Firma Overbase zeigte einen Schriftstück- 
Vorlagenhalter für Computer. Mit einem 
Klettband wird diese Vorrichtung am Monitor 
befestigt und schon kann mit einer Klemm- 
vorrichtung das Vorlagenblatt, das der Ein- 
gabe am Computer dient, eingeklemmt wer- 
den. Eine sehr nützliche und einfache Ein- 
richtung insbesondere für den PCW 8256 und 
PCW 8512, die für ca. 20,-- angeboten wird. 


LCL-Software: 


BRAINTEASERS. 
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Die Firma LCL zeigte Aducational-Software 
(Ausbildungs-Software). So zeigte die Firma 
LCL Programme wie "Micro Maths", "Mega 
Maths", "Micro English", "Micro French" und 
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"Master Maths". Diese Programme sind für die 
verschiedensten Computertypen erhältlich. 
Noch nicht alle sind für den Amstrad liefer- 
bar. 
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Diese Firma zeigte die HS-RX 1 ROM Erwei- 
terungskarte, die HS-P1 Parallel- und Cen- 
tronicskarte, die H1-S1 Doppel-Serielle- 
Karte für den CPC 464 bzw.CPC 6128. Die 
Software für die HS-PI Parallel- und Cen- 
tronicskarte bzw. für die HS-SI Doppel-Se- 
rielle-Karte ist auf Kassette, Diskette bzw. als 
Eprom-Software lieferbar. Ferner zeigte die 
Firma Cirkit einen Akustikkoppler mit einem 
Interface für den Amstrad CPC 464, 664 und 
6128 mit dazugehöriger Software. 


HS-S1 dual channel 
serialcard: 


KDS: 


Mit dem "Powercontroller" bietet KDS die 
Möglichkeit, elektrische Geräte zu schalten. 
Mit dem "Printer ‘T‘ Switch" ist es möglich 
zwei Drucker am CPC anzuschließen. Damit 
kann man z. B. Briefe und Aufklebeetiketten 
schreiben, ohne das Papier ständig wechseln 
zu müssen. Der "Communicator 8256" ist ein 
Modemsystem für den PCW 8256. Auch ein 
RS 232 Interface wurde von der Firma KDS 
gezeigt. Mit dem "8-Bit-Printer-Port" können 
8-Bit-Printer am 7-Bit-Port des CPC ange- 
schlossen werden. Über das Kommando Print- 
Kreuz 8 werden alle 256 Kommandos an den 
Printer geschickt. KDS demonstrierte ferner 
das "Mini-Max Modem" im Amstrad Theater. 
Zum weiteren Lieferprogramm der Firma 
KDS gehört ein "Parallelport" zur Steuerung 
von Robotern und Printern eine "Romkarte" 
für die Aufnahme von 4 Roms und Modems 
für den CPC 464, 664 und 6128 als auch für 
den PCW 8256 und PCW 8512. 


Sigma: 


Mastering 
the Amstrad 
PCW 8256/8512: 


WORD PROCESSING AND PERSONAL COMPUTING 


John M Hughes 


Die Firma Sigma präsentiert eine ganze Reihe 
von Bücher für den CPC 464, 664 und 6128 
sowie für den PCW 8256 und PCW 8512. Die 
Bücher sind in englischer Sprache und haben 
folgende Titel: "Understanding & Expanding 
your Amstrad 464, 664 & 6128”, "Practical C”, 
"Amstrad Graphics”, "The Amstrad Discompa- 
nion”", "Mastering the Amstrad PCW 8256/ 
8512”, "CP/M: The Software Bus”, "Powerfull 
Programming for Amstrads”, "The Amstrad 
CPC 464 Advanced User Guide” und "Amstrad 
CPC 464 Learning Programs". 


The Electric Studio: 


MOUSE ERAFIn 
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The Electric Studio demonstrierte einen 
Lightpen und Grafikprogramme, die auf dem 
PCW 8256 und PCW 8512 laufen. Es handelt 
sich hier um sehr leistungsstarke Programme, 
die einfach zu bedienen sind und in Verbin- 
dung mit dem Lightpen und dem PCW eine 
optimale Lösung bieten. Außerdem bietet The 
Electric Studio auch lightpen-unterstützte 
Grafikprogramme für den CPC 464/664/6128 
und zahlreiche neue Programme, unter denen 
die Programme "Music-Box" und "Multi-Text" 
hervorzuheben sind. 


ESP TERT MODULE FOR LPC'S 


As a direct result of ESP user requests, the ELECTRIC STWIO is pl 
announce the release of 'MULTI- Tert, IM 


This package conplenents the already popular ESP CRAPHICS SYSTEN er providiag 


aulti size & type text Fonts, which can be added to artwerk create 
ESP LICHT PEN. 


with the 


Just sone of the functions the icon driven package provides are. ........ 


8 Ft AEr 4 FIT SIZES--VERT ‚/ORIZ, TEAT--FILL--UNFILL/ERRGE- -ONPY-- 
DT & PSIE--SNEALHD TO DISC/TAPE--LORNS UITH GREDN OR COLDUR AONITORS, 
ESP LICHT PEN AND SCREEN DUNB CONPREIBLE. WITH KEWRORRD OPTION PROVIDED. 
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Newstar: 


Newstar zeigte den "Spool CPM/M+", ein 
CP/M Utility, das die Eingabe auf dem Key- 
board erlaubt, während der Drucker seine 
Arbeit beendet. Spool CPM/M+ läuft auf dem 
PCW 8256 und PCW 8512. Ferner liefert 
Newstar das Buch "The Amstrad CP/M+" und 
zu diesem Buch eine Diskette, auf der die im 
Buch beschriebenen Beispielprogramme sind. 
Das Buch hat 520 Seiten und ist sowohl für 
den Amstrad CPC 6128 als auch für den PCW 
8256 bzw. PCW 8512 geeignet. 


Videx: 


Videx zeigte zum PCW 8256 bzw. PCW 8512 
einen Tragekoffer, in den der Monitor, das 
Keyboard, der Drucker passen und sogar ein 
Modem und sämtliche Kabel und zusätzlich 
sogar eine Vorrichtung zur Ablage von Dis- 
ketten enthalten ist. Preis ca. DM 75,--. 


Compact Software: 
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Die Firma Compact zeigte ein Business-Pro- 
gramm für den PCW 8256 bzw. PCW 8512, 
das gleichzeitig auch auf den meisten CP/M 
Microcomputern läuft. Es handelt sich hier um 
ein komplettes System mit dem Rechnungen, 
Lieferscheine und nahezu allen sonstigen im 
Geschäftsverkehr anfallenden Arbeiten erle- 
digt werden können. Das Programm ist me- 
nuegesteuert und beinhaltet sogar Lager- 
bestandskontrolle, Ausdruck von Schecks bis 
hin zu Schnittstellen für WordStar bzw. 
NewWord, Super Calc II, Multiplan, Cracker 
usw. Selbst eine Schnittstelle zu Lotus 1-2-3 
ist vorgesehen. 


Amstrad: 


Auf dem Amstrad-Stand wurden die Am- 
strad-Computer, dessen Peripherie und Soft- 
ware demonstriert. Auch wurden die Amstrad 
Computerzeitschriften des Clubs auf dem 
Stand gezeigt und konnten dort erworben wer- 
den. Die Amstrad-Mannschaft bemühte sich, 
technische Neuheiten für den Amstrad auf 
dem Stand zu demonstrieren - Neuheiten, die 
auf anderen Ständen gekauft werden konnten. 
Von einem neuen Amstrad Computer war auf 
diesem Stand nichts zu. sehen. Nur Gerüchte 
waren zu hören, die sich teilweise wider- 
sprachen. 
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Sandpiper: 


Die Firma Sandpiper demonstrierte seine Pro- 
gramme "Sandpiper- Accounts", "Sandpiper- 
Payroll" und den "Sandpiper-File-Manager". 


SANDPIPER SOFTWARE LIMITED 
24 ABBOT STREET 
WVREXIHAM 
CLWYD, LLII ITA 
(TEL. 0978-358832) 
V.A.T. NO. 406 2511 91 


STATENENT TO NT 


10, mW STREET 
OESTER 


TE 10276 
ACCOMT REFERENCE A 


TESAIRE 
sa 


Luu3 mw © Tom DATE 
10/02/06 14020000 
10276 10020024 B 
rs 01067 x u 


18.08 31701706 
n.o 


PAYROLL IS NOW AVAILABLE 
CONTACT US NOW FOR DETAILS 


Die Firma Sandpiper hat sich auf Geschäfts- 
software und Dateisoftware für den Amstrad 
PCW 8256 und PCW 8512 und für IBM und 
IBM-kompatible Computer spezialisiert. 


Sagesoft: 


Auch die Firma Sagesoft hat sich auf den 
PCW 8256 und PCW 8512 spezialisiert und 
bietet das Programm "Popular" - ein Rech- 
nungsschreibungsprogramm -, "Shit-Chat" - 
ein Kommunikationsprogramm, "Shit-Chat E- 
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Mail" - ein Mailboxprogramm, "Shit-Chat 
Viewdata" - ein Modemprogramm, "Shit-Chat 
Combo" - eine Kombination von Viewdata 
und E-Mail, den "Magicfiles" und "Sage 
Retrieve" - ein Datenbanksystem an. "Shit- 
Chat" erhielt die Microcomputertrophäe als 
beste Kommunikationssoftware in England. 


Timatic: 


Die Firma Timatic zeigte eine Interfaceerwei- 
terung für den CPC 464, 664, 6128 mit einer 
doppelten RS 232 Schnittstelle, einem Paral- 
lel-Userport und einem 8-Bit-Printerport als 
Ausgang. In dem Interface ist ein freier Sok- 
kel für ein 16 k ROM vorhanden. Ferner lie- 
fert Timatic ein 5 1/4" Diskettenlaufwerk mit 
der gleichen Kapazität wie das 3" Disketten- 
laufwerk von Amstrad. Hervorzuheben ist, 
daß dieses Laufwerk in der Lage ist, Daten in 
IBM-Format zu lesen. Dadurch kann der 
User, der seine Arbeit mit IBM begonnen hat, 
zuhause mit dem Amstrad diese Arbeit fort- 
setzen. Ferner liefert die Firma Timatic ein 
3"-Zweitlaufwerk für den CPC 464, 664 und 
6128, und ein 5 1/4" 1 MB-Diskettenlaufwerk 
und eine Speichererweiterung für den PCW 
8256, der dem Joyce die volle Kapazität von 
512 K gibt und eine RAM-Disk von 386 K zur 
Verfügung stellt. 


8 BIT PRINTER 


PARALLEL USER PORT 


| 2x 16KROM 


RS232 A 


DISC BUS CONNECTOR 


RS232 B 


TIMATIC SYSTEMS AMSTRAD EXPANSION INTERFACE 


Mit der "8256 Bigdisk" wird ein Disketten- 
laufwerk in 5 1/4" geliefert mit dem der 
Joyce ausgestattet werden kann. Unter CP/M+ 
stehen 800 KB, unter CP/M2.2 400 KB und 
unter AMS/DOS 400 KB zur Verfügung. 


Interessant ist auch das Programm "Chamä- 
leon", das es ermöglicht, Daten von ver- 
schiedenen Computern zu übertragen, so zum 
Beispiel vom Zenith, vom Keypro, vom Epson 
.. Computer. 


Mit "Microdraft" stellt Timatic ein Zei- 
chenprogramm für den Amstrad vor, das dem 
Ingenieur ermöglicht, Schaltpläne und tech- 
nische Zeichnungen aller Art zu fertigen. Das 
Programm zeichnet sich durch eine "library" 


‚aus, die bestimmte Konstruktionsteile ablegen 


kann, die bei Bedarf in die zu fertigende 
Zeichnung abgerufen werden können. Das 
Programm kann Zeichnungen drehen, Koordi- 
naten festlegen usw. 


Medi - 


Das Programm "Microdraft" ist auch für den 
CPC 6128 erhältlich. Hervorzuheben ist bei 
dem Programm Microdraft die hohe Auflö- 
sung von 0,01 mm, die bei einer Zeichnung 
mit einem HP bzw. HP-kompatiblen Plotter 
oder mit einem Epson kompatiblen Drucker 
erreicht wird. Microdraft ist auch in der Lage 
"AutoCat"-Files der PC-Programme aufzuneh- 
men. 


Mikro-Gen: 


Mikro-Gen demonstrierte seine Programme 
für den CPC: "Master-Chess", "Pyjamarama", 
"Everyone’s a Wally", "Herberts Dummy Run", 
"Battle of the Planets", "Three Weeks in 
Paradise", "Equinox" und "Stainless Steel". 
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"Equinox" 


Bourne Software: 


x 


zeigte die Programme "World-Wise", "Happy 
Writing", "Maprally", "Timeman One", "Ani- 
mal Vegetable Mineral", "Happy Numbers", 
"Wordhang", "Happy Letters", "Timeman 
two", "Summer Tourist", "Egg-Stealers" und 
"Test your Skill" für den CPC. Auch Versio- 
en für den PCW 8256 bzw. 8512 sind verfüg- 
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"DO - Sunshine Books: 

.C Sunshine Books zeigte die neuesten Amstrad 
'$) Titel wie "Master Machine Code on your 


Amstrad CPC 464 & 664”, "Making Music on 
the Amstrad CPC 464 & 664”, "Amstrad 
Advanced Programming Techniques" und "The 
working Amstrad". 


Amstrad Advanced 
Programming 
Techniques 


Making Music 
onthe 
Amstrad CPC 464 & 664 


lan Weugn 
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Master Machine Code 
on your 
Amstrad CPC 464 & 664 


Auch neue Titel für den PCW 8256 bzw. PCW 
8512 wurden gezeigt. 
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Grafsales: 


zeigte das erste Digitiser-Grafik-Tablett für 
den PCW 8526 bzw. PCW 8512, mit dem eine 
hervorragende Konstruktionsmöglichkeit in 
Verbindung mit einem CAD-Programm gege- 
ben ist. Der Preis wird sich um DM 500,-- 
bewegen. 


Das Grafpad II, das bereits von SCHNEI- 
DER-aktiv getestet wurde und das neue 
Grafpad III wurden im Betrieb gezeigt. 


AMSTRAD-Messe in London 


Sv 15V 156 +5W 


re | 
a 
<Ours R BEN —2 
Dr ER 
we B= 
„svu 
ev & TL972 


j SV Eden gi 
Be = __ Irene 


Sirensoftware: 


zeigte ein Diskettenübertragungsprogramm 
zum Übertragen von Band auf Diskette. Die- 
ses Programm ist sowohl auf dem CPC 464, 
664 als auch auf dem CPC 6128 lauffähig. 
Dieses Programm "discovery" zeichnet sich 
dadurch aus, daß es sehr leicht zu handhaben 
ist und eine Turbo-Option besitzt. Ferner 
zeigte Siren das Programm "Master-Disk", das 
den Diskettenbesitzern große Erleichterung 
bringt. Auch die CPC 464-Besitzer wurden 
nicht vergessen: Mit dem Programm "Tape 
Utility V3.4" kann die Cassettensoftware in 
einem Viertel der normalen Zeit geladen wer- 
den. Erstmals zeigte Sirensoftware auch für 
den PCW 8256 und PCW 8512 das Programm 
"Disc Mate" - einen Directionary-Editor, der 
es erlaubt, gelöschte Files wieder zu finden 
und mit einem Löschschutz zu versehen. Auf 
dieser Diskette befindet sich auch ein 
FileCopy-Programm, das schnell und einfach 
Files von einem Laufwerk auf ein anderes 
kopiert. Mit der ZipDisc-Option wird die 
Geschwindigkeit des Diskettenlaufwerks um 
20% erhöht. Die Firma Siren zeigte ferner 
auch Zweitdiskettenlaufwerke in ihrem An- 
 gebot. 
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Neben der erfolgreichen AMX-Mouse zeigte 
AMS neue Produkte: 


- den "AMX-PageMaker" - zur Erstellung ei- 
ner eigenen Zeitung, eines Posters etc. 


- den "AMX-VideoDigitiser" - zur Übertra- 
gung von Videoaufnahmen auf den CPC- 
Bildschirm. Die Bilder können auf Diskette 
abgespeichert bezw. ausgedruckt werden 


- den "AMX-MagazineMaker" - eine Kombi- 
nation von "AMX-PageMaker" und "AMX- 
VideoDigitiser" 


- den "AMX-3D Zicon" - zur Übertragung 


dreidimensionaler Vektordaten in Bild- 
schirmgrafik. 

DK'Tronics: 
zeigte seinen "SpeechSynthesiser", seine 
"256K-Speichererweiterung", seine "256K- 
SiliconDisc", seinen "Light-Pen" und seine 


"64K-Speichererweiterung". Besonders gefiel 
das technische Manual das DK‘Tronics zu sei- 
nen Produkten liefert. DK‘Tronics hatte im 


übrigen einen der schönsten Stände auf dieser 
Messe und zeigte unter anderem auch einen 
Tuner, mit dem es möglich ist, sich alle Fern- 
sehprogramme auf dem CPC-Monitor anzuse- 
hen. 


Screens: 


bietet eine Speichererweiterung von 1 MB für 
alle CPC 464, 664, 6128 Besitzer an, die als 
Diskettenlaufwerk verwendet werden kann. 
Eine formatierte Kapazität von 708 KBytes 
steht unter Basic, CP/M und CP/M 3.0 zur 
Verfügung. 


Alligator-Software: 


zeigte - wie sie es nannte - das größte Spiel, 
das jemals für den CPC 6128 geschrieben 
wurde. Es enthält 18 kleine Spiele und 3 mit- 
telgroße Spiele und ist mit Sprache ausgestat- 
tet. Für den PCW 8256 wird das Programm 
"Quiz Challenge" angeboten. 
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Northern Computers: 


Mit der "Amstelex Box", die am CPC ange- 
schlossen wird erhält der Computer eine Ver- 
bindung in das Telexnetz. Nothern Computers 
bietet darüber hinaus eine 20 MByte Harddisc 
"Amstore" für den Joyce an. 


Arnor: 
Arnor stellte die Programme "Protext", 
"Prospell", "Promerge", "Promerge Plus", 


"Maxam" und "Utopia" vor. Dabei bietet 
Arnor die Software nicht nur auf Kassetten, 
Disketten oder in Eproms an. Arnor zeigte das 
erste Wortkorrektur-Programm in englischer 
Sprache für den PCW 8256 bzw.PCW 8512. 
Auch die ROM-Erweiterungssteckkassette 
fand bei der Demonstration große Beachtung. 


Audiogenec-Software: 


zeigte ein Cricketspiel für den CPC und das 
Programm "Calcumat" - ein professionelles 
Netzplanprogramm. "Calcumat" hat alle die 
Features, die professionelle Spreadsheet- 
Programme beinhalten. Ferner wurde "Adam" 
gezeigt - ein Assembler/Disassembler/Moni- 
torpaket. 


Level 9: 


zeigte neue Adventures wie das "The Price of 
Magic", die auf dem CPC 464, 664, 6128 lau- 
fen. 


lansyse: 


Die Firma Iansyse zeigte einen "Schreibma- 
schinen-Lehrgang" als Software, mit dem man 
innerhalb von wenigen Stunden das Schreiben 
auf dem Computer erlernen soll. Für Pro- 
grammierer wurde das Utility "Vika" gezeigt, 
ein Analyse-Programm, das für die Program- 
‘ miersprachen dBase, BASIC, PASCAL C und 
viele andere lieferbar ist. 


Glentop: 


Die Firma Glentop zeigte Bücher für den CPC 
wie: 


- "Advanced Users Guide" 

"Amstrad Introdution to CP/M+" 

"Wordprocessing with the PCW 8256/8512" 

- "Using Logo on the Amstrad" 

- "Amstrad First Steps in BASIC" 

- "Amstrad Assembly Language Course” 

"Amstrad Starting BASIC" 

- "Amstrad Sound, Graphics & Datahandling” 

"Computer-Games" 

"Choosing and Using Software on the Am- 
strad PCW 8256 und 8512" 

- "Wordprocessing with the Amstrad PCW 8265 

und 8512" 


und viele andere, 


® 
” 
77] 
© 
= 
D 
<[ 
CL 
- 
w 
> 
TI 


Head-Line: 


Die Firma Head-Line zeigte eine Serie von 


- Lernkassetten (Audiokassetten), die Schritt für 


Schritt ein Programm erklären. So gibt es 
Kassetten für die Programme Logoscript, BA- 
IC und Supercalc 2. 


Modem-House: 


zeigte neue CPC Software und vor allem die 
hervorragende Kommunikationssoftware für 
den PCW. Ferner ein Multicomputermodem. 


Computer One: 


Daun‘ 


ANEDNEIAHHEE 


Computer One zeigte zwei neue Produkte für 
den Amstrad. Der Schreibmaschinenkurs wur- 
de für den PCW 8256 und PCW 8512 ge- 
schaffen. Ein Korrekturprogramm wurde vor- 
gestellt, das mit über 20.000 Wörtern Fehler 
aus Texten korrigiert. Leider nur in Englisch. 


Romantic Robot: 


zeigte ein Multizweckinterface für den CPC 
464, 664 und 6128,.das "Multiface 2". Mit 
dem "Multiface 2" kann man Programme mit 
Knopfdruck von Kassette auf Diskette über- 
spielen. Ferner beinhaltet Multiface 2 einen 
wohl einmaligen Multitoolkit für das Ent- 
wickeln und Verstehen von Software, eine 8 
KRam-Erweiterung, Resetknopf, einen durch- 
gezogenen Bus usw.. 


Schneider PCW 8256 Joyce 
Schnelder Joyce plus PCW 8512 
512 KB m. 2. Floppy 1 MB 
Schnelder CPC 464 Keyboard 
Schneider CPC 664 Keyboard (mit Floppy) 
Schneider CrC 6:28 Keyboard (mit Floppy) 
Schaelder Gräamonltor GT-65 (für alle CPC) 
Schnelder Farbmonitor CTM-644 (für alle CPC) 
Schnelder CPC 464 mit Grünmonltor 
dito mit Farbmonltor 
Schaelder CPC 664 mit Grünmonltor 
dito mit Farbmonltor 
Schneider CPC 6128 mit Grünmoaltor 
dito mit Farbmonitor 
Schnelder 3" Floppy-Disk DDI-1 
mit CP/M und Logo 
dito als zweites Laufwerk (ohne CP/M u. Logo) 
Vortex 5,25 Floppy-Disc F1-S (Elazelstation) 
Vortex 5,25" Floppy-Disc Fi-D (Doppelstatioa) 
Vortex Aufrüstklt Al-S, FI-S auf FI-D 
Vortex 5,25" als Zweitlaufwerk FI-Z 
Vortex 3,5" M1-S Elazellaufwerk 
Vortex 3,5" M1-D Doppelstation 
Vortex 3,5" als Zweitlaufwerk MI1-Z 
Cumana 3" als Zweitlaufwerk 

5,25" als Zweitlaufwerk 

3,5" als Zweitlaufwerk 

3,5" als Doppelstation 
3" Panasonic-Disketten 5 Stück 
ab 10 Stück je 11,50 ab 100 Stück je 
5,25" Disketten für Vortex-Laufwerke 
96 1pl 10 Stück ia Hartbox 
dito jedoch 100 Stück 
Netzteil MP-2 für CPC 464,664 u. 6128 
RAM-Erwelterung SP-64 64 KByte 
(Insgesamt 128 KByte) 
RAM-Erweiterung SP-128 128 KByte Vortex 
RAM-Erweiterung SP-256 256 KByte 
RAM-Erwelterung SP-320 320 KByte 
RAM-Erwelterung SP-512 512 KByte 
Verlängerungskabel 1.50 Meter für CPC 464 
dito für CPC 664 und CPC 6128 
Quickshot II mit Autofire 
Competition Pro 5000 mit Microschalters 
Diskettenbox für 40 3" Disketten 
Diskettenbox für 40 5,25" Disketten 
Diskettenbox f. 100 5,25” Disketten mit Schloß 
SUPER Sprachsynthesizer + Stereosound f. CPC 


Staubschutzhauben Kunstleder für CPC 464/664/6128, 


NLQ-401, DDI-1, Montitor Grün/Farbe 
komplett f. CPC u. Monitor (bitte Geräte angeben) 


1698,-- 


2298,-- 
s98,-- 
798,-- 

1298,-- 
379,-- 
798,-- 
729,-- 

1198,-- 
998,-- 

1498,-- 

1498,-- 

1998,-- 


7149,-- 
569,-- 
1198,-- 
1698,-- 
499,-- 
698,-- 
998,-- 
1498,-- 
634,-- 
419,-- 
398,-- 
s98,-- 
998,-- 
59,-- 
10,50 


6,95 
595,-- 
149,-- 


275,-- 
348,-- 
418,-- 
s28,-- 
s89,-- 
29,95 
34,95 
29,95 
69,95 
39,95 
49,95 
49,95 
159,-- 


je 17,95 


29,95 


Staubschutzhauben Plexiglas für Keyboard 464,664,6128 27,95 


Akustikkoppler S21d (ohne Software u. Kabel) 
SUPERSOFTWARE für Ihren CPC 
Wordstar 3.0 


"dBase II 


Multiplan 

Turbo Pascal 

Turbo Graphics Toolbox 
Turbo Tutor 

Turbo Lader Grundpaket 
Turbo Lader Business 
Turbo Science 


298,-- 


199,-- 
199,-- 
199,-- 
219,-- 
279,-- 


109,-- 
139,-- 
149,-- 
189,-- 


Alle Programme auch für Joyce geeignet. Daher bilie 


Computertyp und Discformat angeben. 
DRUCKERPARADE ** DRUCKERPARADE 


Schaelder DPM 2000 

Epson LX-80 100 Zeichen/Sek. 1KByte Puffer 
Epson LX-90 100 Zeichen/Sek. 1KByte Puffer 
Epson FX-85 160 Zeichen/Sek. 8KByte Puffer 
Epson FX-105 160 Zeichen/Sek. 8KByte Puffer 
Epson JX-80 Farbmatrixdrucker 

Epson HI-80 4-Farb-Plotter bis A4 

Epsoa LQ-1000 200 Zeichen/Sck. 

mit 24 Nadeln, A3 

Panasonic KX-P 1080 (100 Zeichen/Sek.) 
Panasonic KX-P 1091 (120 Zeichen/Sck.) 
Panasonic KX-P 1092 (180 Zeichen/Sek.) 
Panasonic KX-P 1592 

(180 Zeichen/Sek., Breitformat) 

Panasonic KX-P 3151 Typenraddrucker 

Star SG-10 (120 Zeichen/Sek.2KByte) 

Star SG-15 (120 Zeichen/Sek. 16KByte) 
Ritemaa F+ (105 Zeichen/Sek. 2KByte Puffer) 
Auschlußkabel f. Schneider Ceatroalc/CPC 464/664 
dito für CPC 6128 Rundkabel 

Eadlospapier weiß m.A4 Mikroperforation 500 Blatt 
dito Jedoch 1000 Blatt 

dito Jedoch 2000 Blatt 

Super-Druckerständer 


Ersatzfarbbänder auf Anfrage lieferbar. 


689,-- 
298,-- 
948,-- 

1478,-- 

1898,-- 

1998,-- 

1298,-- 


2998,-- 
849,-- 
949,-- 

1249,-- 


Literatur von Data Becker, Markt & Technik, tewi u. Sybex. 
Alle Drucker mit NLQ-Schrift uad Centronics- Anschluß. 
Alle Geräte mit FTZ, 6 Monate Garantie und deutschem 


Handbuch. 
Wir liefern sofort ab Lager! 


ACHTUNG! Für ausländische Besteller supergünstige 
Konditionen!! 

1. Spitzen Preis-/Leistungsverhältais 

2. Erstattung der gesamten Mehrwertsteuer 


3. Bezahlung äußerst einfach durch eigene Auslandskonten 


BEZIEHEN SIE SICH AUF SCHNEIDER-AKTIV 
nBachetrabe 52 


0 Ravensburg 
. Tel.: 0751/26138 


schauties 


elecironie bauelemente 


Vanguard: 


zeigte einen neuen Musikgenerator mit dem 
Namen "Music-Master". Mit dieser Software 
auf Kassette oder Diskette kann der Computer 
in ein Keyboard umgewandelt werden und als 
Musiksynthesizer mit 8 Oktaven und 6 ver- 
schiedenen Zupfinstrumenten verwendet wer- 
den. Die Anwendung erschien sehr leicht. 
Musikalische Vorkenntnisse sind nicht nötig. 


Pride Utilities: 


zeigte ein neues Printer-Utility für die mei- 
sten Drucker "Printer-Pacz". 


Citadel: 


\ 


zeigte als Hauptattraktion seinen Speicher- 
Aufrüstsatz für den PCW 8256. Für 190 
Pfund (1 Pfund = DM 3,50) wird aus dem 
8256 ein 8512. 


Business-Systems: 


zeigte ein Trainingssystem für den kommer- 
ziellen Anwender. Von dem Gedanken aus- 
gehend, daß der PCW 8256 und PCW 8512 
viele Geschäftsleute in die Welt des Computers 
einführt, aber der Kauf der Maschine noch 
lange nicht dessen sinnvolle und nützliche 
Anwendung garantiert, bietet Business ein 
Trainingsprogramm für den PCW an. 


Everham: 


zeigte das neue "DiscWizard" mit der Mög- 
lichkeit alle Kassettenprogramme auf Diskette 
zu übertragen. 


Brittania: 


zeigte ein Textverarbeitungsprogramm zum 
Low-Cost-Preis mit Features, die sonst nur in 
professionellen Programmen zu finden sind. 
Geliefert wird dieses Programm auf Diskette, 
im ROM bezw. auf einer ROM-Card. Brittania 
bot auch leere ROM-Cards an. 


Mirage: 


zeigte eine Hardwarevorrichtung, mit der es 
möglich ist, Kassettensoftware auf Diskette zu 
übertragen - mit dem "Mirage-Imager". Mi- 
rage-Imager arbeitet mit dem Amstrad CPC 
464, 664, 6128 und ist recht einfach in der 
Anwendung. 


Commtel: 


zeigte mit seinem "Commtel-X" ein komplettes 
Kommunikationspaket mit dem Daten (und 
auch Telexfernschreiben) über eine Telefon- 
leitung versandt und empfangen werden kön- 
nen. Das Packet enthält alles was benötigt 
wird - nichts muß extra hinzugekauft werden: 
Interface, Modem, Software, Anschlußkabel 
etc. 


CDS: 


zeigte ihre Bestsellerprogramme in Funktion. 
Das waren: "Steve Davis Snooker" und "Col- 
lossus Chess 40". 
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HURRA, WIR GRÜNDEN EINEN CLUB !! 


Dieser Bericht schildert die Erfahrungen aus 4 monatiger Führung eines überregionalen Userclubs 
und soll den Lesern mit derartigen Ambitionen vor einer Clubgründung abschrecken oder dazu 
anregen. 


Es war im November 1985, als mir der 
Gedanke kam, einen Userclub zu gründen. 
Einige Anfragen bei bestehenden Clubs waren 
mir zu negativ ausgefallen. Trotz der weit 
über 100 vorhandenen Schneiderclubs konnte 
ich einen Freund und CPC-User für diese 


Idee gewinnen. Der AMSTRAD-SCHNEI- 
DER-USER-CLUB-AACHEN _(A.S.U.C.A.) 
wurd somit am 20.12.85 in 5132 


Übach/Palenberg Zeißstr. 7 aus der Wiege 
gehoben. Unser vorrangigstes Ziel war es, sich 
von anderen Clubs deutlich abzuheben. Es 
wurden nochmals 12 Clubs angeschrieben. Wir 
baten um Informationen, und hofften auf 
weitere Anregungen. Das Resultat fiel wie er- 
wartet aus. Entweder waren es reine Kopier- 
höhlen, die von 13-15 jährigen "geführt" wur- 
den, oder "Käufergemeinden", die clevere 
Softwarehändler um sich scharten. Einer Min- 
derheit ging es wohl nur um die schnelle Ein- 
nahme von Beitrittsgeldern, wenige waren 
wirklich "seriöse" Clubs. Nun stand für uns 
schon einmal folgendes fest: Wir wollten keine 
Software verhökern, sondern in diesem 
Bereich intensive Hilfestellung geben 


(Preisvergleiche,Sammelbestellungen etc.) und. 


uns auf die vielfältigen Probleme und Pro- 
blemchen künftiger Mitglieder konzentrieren. 
Unverzüglich wurden 6 Zeitschriftenverlage 
angeschrieben, verbunden mit der Bitte, eine 
kurze Clubanzeige zu veröffentlichen. Tat- 
sächlich erschien unsere Anzeige innerhalb 
von 4 Wochen in der ersten Zeitschrift, und 
einen Monat später in zwei weiteren. Auch 
SCHNEIDER-aktiv veröffentlichte unsere 
Clubadresse. 


Weiterhin wurde ein vierseitiges Informations- 
blättchen und ein Aufnahmeformular entwor- 
fen, 100-fach kopiert, und diese warteten nun 
auf ihre "Abnehmer". Da der Clubbeitrag pro 
Monat zwar nur 3,-DM betragen sollte, dieser 
aber dennoch finanztechnisch eine Einnahme 
darstellt, meldete ich bei der zuständigen 


Gemeindeverwaltung ein Gewerbe an. Nach- 
dem mir für 28,- DM der Status eines Un- 
ternehmers gewährt wurde, meldeten sich 
noch Finanzamt, Berufsgenossenschaft, In- 
dustrie- und Handelskammer und viele mehr. 
Auch dieser Papierwust wurde erledigt. Die 
erste Anfrage eines Users erfolgte am 
20.12.1985. Diese Anfrage bescherte uns tat- 
sächlich am 31.12.85 !! das erste Mitglied. Das 
mußte doch gut gehen. 


In unserem Informationsblättchen avisierten 
wir künftigen Mitgliedern zweimonatlich eine 
40-seitige Clubzeitung. Der erste "ASUCA- 
EXPRESS" sollte am 28.Januar erscheinen. 


Also begannen wir zu schreiben und zu 
schreiben. Parallel dazu wurde eine Preiser- 
mittlung für die Herstellung unserer 
Zeitschrift durchgeführt. Die Kosten für einen‘ 
Druck waren für unsere Verhältnisse, bedingt 
durch die geringe Auflage, astronomisch. 
Schließlich machten wir einen preiswerten 
Kopierladen ausfindig, und überlegten, wie 
neben der Clubbeiträge weitere finanzielle 
Quellen zu erschließen seien. 


Ich entwarf ein Anschreiben, in dem wir un- 
seren Club und seine Zielsetzung vorstellten. 
Dabei warb ich um finanzielle Unterstützung, 
und bot Anzeigenflächen im ASUCA-EX- 
PRESS als Gegenleistung an. Nachdem mein 
Freund und ich siebzig Adressen von Soft- 
und Hardwarehändlern aus Zeitschriften her- 
ausgesucht hatten, wurde mein Schreiben 
ebenfalls 70-fach kopiert, und ab damit in 
den Briefkasten. Weiterhin wurden noch 6 
Händler in Großbritannien bezüglich Soft- 
und Hardwarepreisen angeschrieben. Erst 6 
Mitglieder, erst 25 Seiten ASUCA-EXPRESS, 
und nur noch eine Woche bis zum Erschei- 
nungstermin. Die Angebote aus Großbritan- 
nien treffen ein. Man hat sich auf der Insel 
schon preislich auf Anfragen aus Germany 
eingestellt. Bestellungen lohnen nur noch sel- 
ten, zumal per Postversand nur Waren bis 
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100,- DM zollfrei sind. Die Resonanz auf un- 
sere 70 Anschreiben ist sehr dünn:. Zwei Fir- 
men lehnen wegen fehlender finanzieller Mit- 
tel dankend ab. Drei Firmen zeigen sich 
begeistert, und wollen lediglich unsere erste 
Zeitung abwarten. 65 mal keine Antwort! 


Auch die Anfragen von CPC-Usern trudelten 
nur sehr spärlich ein. Zwar konnten und kön- 
nen wir 80% der Anfragenden später als Mit- 
glieder begrüßen, aber es erfolgen eben viel 
zu wenig Anfragen. 


30.Januar 1986, wir zählten 13 Mitglieder, der 
erste EXPRESS war fertiggestellt. 44 Seiten 
voll mit Listings, Erfahrungsberichten, Tips & 
Tricks und vieles mehr. Ich erläuterte in 
dieser Ausgabe nochmals Sinn und Zweck des 
Clubs, und ging auf alle Clubleistungen ein. 
Dies waren und sind Pflege und Erweiterung 
unserer Free-Software-Bibliothek, Druc- 
kerservicec, Hilfe bei Hard- und Soft- 
warebeschaffung, Hilfe bei der Program- 
mierung sowie der möglichen Nutzung und 
Anpassung kommerzieller Software, Erstellung 
des ASUCA-EXPRESS, und vor allem echte 
- Einsteigerhilfe bei noch so trivial erscheinen- 
den Problemchen. 


Durch das schleppende Anlaufen unseres 
Clubs sensibilisiert, wird unsere Erstausgabe 
nur 50-fach erstellt, in der Hoffnung bald 
einen Nachdruck fertigen zu müssen. Nach- 
dem einige Mitglieder, ein von mir leichtfertig 
angebotenes Lastschriftverfahren ankreutzten, 
folgte ein 4 Wochen dauerndes Verfahren der 
Bundespost, das mir schließlich ermöglichte, 
am Lastschrifteinzugsverfahren teilzunehmen. 


Nun hatten wir 5 Wochen unter Dampf 
gestanden, und pausierten erstmal eine Woche. 
Obwohl ich schon in der Erstausgabe auf 
dringend erforderliche Mitarbeit der Mit- 
glieder hingewiesen hatte, geschah zunächst 
nichts. Die ersten Anfragen bezüglich unserer 
Programmbibliothek trafen ein. Dennoch 
wurde dieser fast kostenlose Service (0,01 DM 
pro KByte) kaum genutzt. Unsere Bibliothek 
umfaßte im Januar schließlich schon über 100 
Programme, obwohl wir nicht jeden Blödsinn 
aufnahmen. Mitte Februar wurde tatsächlich 
ein Softwarehändler aus Karlsruhe Fördermit- 
glied im A.S.U.C.A. Somit belief sich die Er- 
folgsquote unserer 70 Anschreiben auf 1,4 %. 
Wir hatten nun 16 Mitglieder, und ich be- 
merkte, daß fast ausschließlich "reifere" User 
bis zum Alter von 46 Jahren den Weg in un- 
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seren Club gefunden hatten. Erneut wurden 
Zeitschriften angeschrieben, um auf uns 
aufmerksam zu machen, gleichzeitig wurde 
der Beitrag für Jugendliche auf 2,25 DM pro 
Monat reduziert. 


Auf der Suche nach weiteren sinnvollen 
Clubleistungen, kam mir ein Gedanke, den ich 
noch verfluchen sollte. Neben der Arbeit am 
2.EXPRESS begann ich eine Schneider-Soft- 
ware-Liste zu erstellen. Ich wälzte tagelang 
erhaltene Händlerlisten und Zeitschriften, 
einige bestehen fast nur aus Werbung, mit 
dem Ziel, das jeweils preiswerteste Angebot 
zu erfassen. Die Preisunterschiede von bis zu 
100 % rechtfertigten zwar diese 
"Sträflingsarbeit", dennoch gibt es kaum eine 
trostlosere Beschäftigung. Dabei "stolperte" ich 
auch über eine Preisliste eines "Userclubs", der 
sich der größte Schneiderclub in Deutschland 
nennt. In Anbetracht der schon redlich 
geleisteten Arbeit, beneidete ich diesen Club 
um seine über 200 Mitglieder. Aber wir woll- 
ten uns ja von solchen Clubs abheben. 


Nach einer ersten Bestandsaufnahme meiner 
Liste, waren 381 Programme erfasst, aber es 
sollten noch viel mehr werden. Die 
notwendige Pflege dieses Softwarekatalogs ist 
sehr zeitintensiv, und ich beschloß, ihn 
wenigstens noch 6 Monate weiterzuführen, 
und ihn eventuell auch Nichtmitgliedern zu- 
gänglich zu machen. Wir legten uns ein drin- 
gend notwendiges 5,25" Laufwerk zu und be- 
gannen auf einen vernünftigen Telefonkoppler 
zu sparen. Die zahlreichen Angebote von 
Händlern, die seit Wochen ins Haus flatterten, 
wurden für unsere Mitglieder ausgewertet und 
per Clubzeitung weitergegeben. 


Seit März fahre ich monatlich in die nahe 
liegenden Niederlande und besorge dort 
britiiche Amstrad-Zeitschriften. Auch hier 
suchte und suche ich aktuelle Informationen 
aus allen Bereichen, die für unsere Mitglieder 
von Interesse sein können. 


Kurz nach Erscheinen unserer 2. Clubzeitung, 
erschien unsere zweite Club-Anzeige. Wir 
boten in dieser Anzeige jedem Interessierten 
gegen 2,50 DM in Briefmarken unseren |. 
ASUCA-EXPRESS zum Probelesen an. Gleich 
in der folgenden Woche konnten wir 13 An- 
fragen verzeichnen, die uns schließlich 11 
weitere Mitglieder bescherten, und die Zahl 
auf 32 erhöhten. Zwischenzeitlich wurde un- 
sere Programmbibliothek doch angenommen. 


Auch erfolgten viele Fragen zu Hard- 
wareproblemen: Welchen Drucker soll ich 
kaufen - Welche Erweiterung ist sinnvoll - Ist 
ein Telefonkoppler erstrebenswert usw.usw. 


Mir blieb kaum Zeit für "privates" Schaffen 
am CPC, zumal ich noch einen Beruf, Frau 
und zwei Kinder habe, die auch viel Zeit und 
meine Aufmerksamkeit erfordern. 


Um zum Ende zu kommen, möchte ich nach 
fast 4 Monaten A.S.U.C.A. ein kleines Re- 
sümee ziehen: 


Mein Freund und ich haben eine Menge Zeit 
in dieses Vorhaben investiert, das ohnehin 
kaum Gewinn abwerfen sollte, aber bisher 
sogar Geld kostete. Aber dies ist uns nicht so 
wichtig wie eine entsprechende Resonanz un- 
serer Bemühungen. Unsere derzeit 32 Mit- 
glieder stehen noch in keinem Verhältnis zur 
investierten Energie. Die gilt insbesondere _ 
unserem ASUCA-EXPRESS, der auch weiter- 
hin 40 Seiten Umfang haben soll. Leider 
nehmen bisher vorrangig nur "Anfänger" aktiv 
am Clubleben teil, was auch völlig legitim und 
erwünscht ist. Dennoch wünschte ich mir 
mehr Mitarbeit von den fortgeschrittenen 
Usern. Als künftige Strategie stelle ich mir 
einen regen Kontakt mit anderen Userclubs 
vor, um eventuell einen "Clubzeitungsverbund'"\ 
in irgendeiner Weise zu schaffen. Der Club 
macht uns trotz der oft mühseligen Arbeit 
noch immer sehr viel Spaß, zumal wir uns 
über die schwierige noch immer anhaltende 
Anlaufphase keine Illusionen gemacht haben. 
Ich glaube, daß unser Club bestand haben 
wird. Künftigen Clubgründern sei folgendes 
geraten: 


Eine Gründung des einhundertsoundsovielten 
Userclubs ist nur dann sinnvoll, wenn man 
über sehr viel Zeit verfügt, keinen fi- 
nanziellen Profit erwartet, viel Geduld besitzt, 
beharrlich und einfallsreich ist, eine tolerante 
Ehefrau, Freundin oder keinen "Anhang" be- 
sitzt, und vor allem gerne mit anderen Men- 
schen auf jegliche Weise korrespondiert. 


Mit freundlichem Usergruß 
Richard Cloots 

A.S.U.C.A. 

Zeißstraße 7 

5132 Ubach/Palenberg 
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PROGRAMMIERHILFE 


Diskettenmonitore leisten bei der Rettung 
teilweise zerstörter Disketten ebenso gute 
Dienste wie bei der Manipulation einzelner 
Sektoren. 


Wenn Sie ... 


- versehentlich gelöschte Dateien auf der Dis- 
kette wiederherstellen wollen, 


- das Inhaltsverzeichnis (Directory) manipulie- 
ren wollen, 

- Systemmeldungen kopiergeschützter Pro- 

gramme ins Deutsche übersetzen wollen, 


- das bei Ihrer Diskettenstation mitgelieferte 
CP/M direkt verändern wollen, 


- hinter die Programmiertricks der Autoren 
von Profiprogrammen kommen wollen, oder 


- einfach neugierig sind auf den Aufbau der 
Disketten und die Funktionsweise des Dis- 
ketten-Betriebssystems, dann haben Sie mit 
DiskEdit ein leistungsfähiges Werkzeug zur 
Hand, das Ihnen enorm helfen kann. 


DiskEdit erlaubt es auf sehr komfortable Wei- 
se, einzelne Diskettensektoren zu lesen, zu 
editieren und wieder abzuspeichern. Außer- 
dem können gelesene Sektoren auf einem 
Drucker ausgegeben werden. Alle diese Funk- 
tionen können mit einer oder zwei angeschlos- 
senen Diskettenstationen durchgeführt werden. 
Haben Sie zum Beispiel eine 5.25-Zoll-Station 
mit 180 KByte Speicherkapazität als Zweit- 
laufwerk, so können Sie auch dort Sektoren 
manipulieren. 


DiskEdit benutzt eine sehr einfach zu erler- 
nende Menuesteuerung, die geschickt die Win- 
dow-Fähigkeiten ausnützt und die bisher in 
ähnlicher Weise fast nur auf den teuren Com- 
putern der 68000- und 8088-Klasse verwirk- 
licht wurde. 


DiskEdit wurde so programmiert, daß es glei- 
'chermaßen auf allen drei Schneider-Compu- 
tern lauffähig ist. Es arbeitet aber nur unter 


AMSDOS, nicht mit dem Vortex-Betriebssy- 
stem VDOS. 


DiskEdit beschränkt sich bei Fehlermeldungen 
nicht auf lakonische Angaben wie "Disc mis- 
sing - Retry, Ignore or Cancel?", sondern gibt 
deutsche Fehlermeldungen im Klartext aus - 
selbstverständlich mit Tips zur Abhilfe. 


DiskEdit ist - kurz gesagt - ein wirklich pro- 
fessionell einsetzbares Programm, das Ihnen 
bei Ihrer Beschäftigung mit dem Computer si- 
cher bald zu einem unentbehrlichen Hilfsmit- 
tel wird. 


In dieser Anleitung erfahren Sie zuerst einiges 
über den Aufbau der Disketten, die verschie- 
denen Formate und den Aufbau des Disket- 
ten-Directories. In weiteren Abschnitten wer- 
den Sie in die Bedienung von DiskEdit und 
nützliche Anwendungsbereiche eingeführt. 


Il. Der Aufbau der Diskette 


Alle Disketten bestehen bei den Schneider- 
Computern unter AMSDOS (Amstrad Disk 
Operating System) aus 40 Tracks (Spuren), die 
wiederum in neun Sektoren mit je 512 Bytes 
Kapazität aufgeteilt sind. Beim IBM-Format 
(CP/M-86-Systemformat) sind allerdings nur 
acht Sektoren in jedem Track ansprechbar. 


Damit wären wir auch schon bei den Forma- 
ten. Der Schneider-Computer unterstützt drei 
verschiedene Diskettenformate: 


- Das CP/M-Systemformat, das die Verwen- 
dung des CP/M-Betriebssystems erlaubt, 


- das Data-Only-Format, das einige KByte 
mehr an Speicherplatz bietet, 


- das IBM-Format, das das Einlesen von 
Dateien des IBM-PC-Betriebssystems CP/M- 
86 erlaubt. Genauer: Erlauben würde, wenn 
man eine 5.25-Zoll-Diskette in ein 3-Zoll- 
Laufwerk schieben könnte! Somit dürfte 
dieses Format das am wenigsten gebräuch- 
lichste sein. DiskEdit unterstützt es dennoch. 
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Zusätzlich gibt es noch das Vendor-Format, 
eine spezielle Version des CP/M-Formats, die 
zum Verkauf von CP/M-Software gedacht ist. 
Bei ihm sind die Systemspuren für CP/M 
reserviert, aber noch nicht belegt. Die 
Lizenzbestimmungen von Digital Research 
(DRI), den Erfindern von CP/M, verbieten 
nämlich die Verbreitung lauffähiger CP/M- 
Disketten. Somit muß der Käufer sich in 
diesem Fall mit BOOTGEN und SYSGEN die- 
se Spuren selbst aufkopieren. 


Wichtig für Sie als Benutzer von DiskEdit ist 
die Aufteilung in die verschiedenen Formate 
deshalb, weil zum Beispiel die Systemdaten in 
verschiedenen Tracks gespeichert sind. 


1. Das CP/M-Systemformat: 


- Track 0, Sektor 1: Bootsektor (Hilfspro- 
gramm zum Laden von CP/M) 


- Track 0, Sektor 2: Konfigurationssektor für 
den CCP unter CP/M. In diesem finden Sie 
die Startmeldung, die Tastaturbelegung, den 
Printer-Powerup-String etc. 


- Track 0, Sektor 8 bis 9 sowie Track |, 
Sektor I bis 9 enthalten den CCP (Console 
Command Processor) und das BDOS (Basic 
Disk Operating System). Der CCP führt die 
Tastaturbefehle unter CP/M aus, das BDOS 
ist der hardwareunabhängige Teil von CP/M. 


Diese Angaben gelten nur für CP/M 2.2. Bei 
CP/M Plus liegt in diesen Sektoren nur ein 
Ladeprogramm, das die Datei C1IOCPM3.EMS 
in den Speicher holt. 


2. Das Data-Only-Format: 


Hier sind keine Spuren für das Betriebssystem 
reserviert. 


3. Das IBM-Format: 


Sektor 1 Track 0 ist für das Betriebssystem 


vorgesehen. Da der Schneider-CPC kein 
CP/M-86 fahren kann, ist dieser Sektor leer. 
Außerdem sind in jedem Track nur acht Sek- 
toren formatiert, im Gegensatz zu neun Sek- 
toren bei den anderen Formaten. 


Das Inhaltsverzeichnis (Directory) 


Auch das Disketten-Inhaltsverzeichnis ist bei 
den verschiedenen Formaten an jeweils unter- 
schiedlichen Stellen gespeichert: 


CP/M-System Data-Only CP/M-86 
4 2 ae u 
ee 1 1 N 
Besen nn nn Yu 


Bei den Schneider-Computern können unter 
AMSDOS bis zu 64 Einträge im Inhaltsver- 
zeichnis stehen. 


Daten und Programme werden beim CP/M- 
Systemformat ab Track 2/Sektor 5 abgelegt, 
beim Data-Format ab Track 0/Sektor 5 und 
im IBM-Format ab Track 1/Sektor 5. 


Der Aufbau eines Directory-Eintrags sieht 
folgendermaßen aus: 


Falls Sie sich genauer informieren wollen, 
sollten Sie sich nach speziellen CP/M-Fach- 
büchern umsehen. Denn das AMSDOS-Direc- 


. tory-Format ist CP/M-kompatibel. Für nor- 


male Anwendungszwecke reichen aber die 
obigen Angaben und die folgenden Hinweise 
vollauf aus. 


Il. Die Programmbedienung 


Da dieser Abschnitt nicht zu einem Trocken- 
kurs verkommen soll, sollten Sie sich zuerst 
einmal eine Diskette formatieren - und zwar 


DiskEdit 


im CP/M-Format, da dort die Veränderungs- 
möglichkeiten am interessantesten sind. 


Legen Sie dazu in das Laufwerk A: die bei 
der Diskettenstation mitgelieferte CP/M- 
SystemDiskette ein und starten Sie mit dem 
RSX-Befehl öCPM von Basic aus das CP/M- 
Betriebssystem. Sobald der Prompt A> er- 
scheint, sollten Sie das Formatierungs- 
programm durch Eingabe von "FORMAT" 
aufrufen. Legen Sie dann eine noch unbenutz- 
te oder nieht mehr benötigte Diskette in das 
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enthält, in das Laufwerk A:. Dann geben Sie 
den Startbefehl: 


RUN "A:DISKEDIT.BAS" 
oder kürzer: 
RUN "DISKEDIT" 


Nach kurzer Wartezeit erscheint das Titelbild 
und DiskEdit kann benutzt werden. 


636861F2 G93BGBIE BUSBOAAI 2U0DAHBA KIGE?EES 72FAEFOF |chat); 
cOEBCOBF 2OFFOI2E 19182938 DOOABOSA OnAG2HIE- ACBBED1I| 9 N 


b16C74E5 F1193728 


Laufwerk und formatieren Sie diese. CP/M- 
Plus-Anwender rufen dazu das Programm 
DISKKIT3.COM auf. 


Sobald diese Arbeit abgeschlossen ist, kommen 
Sie durch gleichzeitiges Drücken der Control-, 
Shift- und Escape-Taste nach Basic zurück. 
Dort geben Sie bitte ein kurzes Basic-Pro- 
gramm ein, zum Beispiel: 


10 PRINT "Dies ist ein Basic-Programm" 
Speichern Sie dann dieses mit SAVE "PRINT. 


BAS" auf der frisch formatierten Diskette ab 
und legen Sie die Diskette, die DiskEdit 


Befolgen Sie bitte den Rat, vor der Bearbei- 
tung einer Diskette unbedingt eine Sicher- 
heitskopie mit einem Sektorenkopierer wie 
DISKCOPY.COM, COPYDISK.COM oder 
DISKKIT3.COM anzulegen. Im ungünstigsten 
Fall kann bereits ein einziges von Ihnen 
fehlerhaft gesetztes Byte das Lesen der 
Diskette unter AMSDOS und CP/M unmöglich 
machen! 


Benutzen Sie zwei Diskettenlaufwerke, so 
sollte sich die ProgrammDiskette im Laufwerk 
A: befinden. Außerdem sollten Sie beachten, 
daß beim Arbeiten mit Doppellaufwerken sich 
in beiden Stationen Disketten des gleichen 
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Formats (CP/M-System, Data-Only oder IBM- 
CP/M-86) befinden sollten. Sonst kann es zum 
Beispiel beim Menuepunkt "Drive" Probleme 
geben. Wie sollte beispielsweise auf eine IBM- 
Diskette ein Sektor mit der Nummer 9 ge- 
schrieben werden? 


Es gibt hier schon einen Begriff zu erläutern: 
Die Menueleiste. Das sind die eingerahmten 
Menuepunkte in der obersten Bildschirmzeile. 
Diese Menueleiste enthält alle Möglichkeiten 
des Programms und ist während des gesamten 
Programmlaufs sichtbar. 


In der Menueleiste stehen folgende Unterpro- 
gramm-Namen: 


- Edit: Editieren eines Sektors 

- Lesen: Einlesen eines Sektors 

- Schreiben: Speichern eines Sektors 

- Hardcopy: Ausgabe des Bildschirms auf 
den Drucker 

- Ende: Abbruch des Programms. 

- Drive: Laufwerk auswählen. 


Außerdem finden Sie dort "Sektor" und 
"Track". 
Diese Begriffe werden im folgenden ein- 


gehend erläutert. 


Das Auswählen eines Befehls aus der Menue- 
leiste 


Nachdem das Titelbild von DiskEdit ver- 
schwunden ist, werden Sie bemerken, daß der 
Menuepunkt "Lesen" stärker umrandet ist als 
die anderen Auswahlpunkte. Das bedeutet, 
da- "Lesen" der aktuell gewählte Menuepunkt 
ist. Mit den Tastenkombinationen "Control- 
Cursor links" und "Control-Cursor rechts" 
können Sie auch einen anderen Punkt an- 
wählen. Wenn Sie ein wenig mit diesen Tasten 
"herumgespielt" haben, haben Sie sicher auch 
bemerkt, daß die Felder "Sektor" und "Track" 
nicht angesprungen werden können und auch 
ständig dicker umrandet sind. Dies rührt ganz 
einfach daher, daß dies keine Menuepunkte 
sind, sondern Eingabe- und Anzeigefelder des 
Menuepunkts "Lesen". 


Wollen Sie eine Wahl bestätigen, dann drücken 
Sie ganz einfach die COPY-Taste, worauf 
DiskEdit das entsprechende Unterprogramm 
aufruft. 


Der Menuepunkt LESEN 


Legen Sie nun Ihre frisch formatierte Diskette 
in das Laufwerk A: ein und wählen Sie mit 
<Control> und den Cursortasten den Menue- 
punkt "Lesen" aus. Bestätigen Sie Ihre Wahl 
mit der COPY-Taste. Sie können dann einen 
kurzen Pfeifton hören und sehen, daß im Feld 
"Sektor" ein Fragezeichen erscheint. Nun 
können Sie den gewünschten Sektor als Zahl 
zwischen 1 und 9 eingeben (beim IBM-Format 
zwischen I und 8). Bei einer Fehleingabe 
ertönt eine Warnmeldung, und Sie können die 
Eingabe sofort wiederholen. Ebenso sollten Sie 
bei der Eingabe des Tracks (der Spur) ver- 
fahren. Diese Nummer muß zwischen 00 und 
39 liegen und muß immer zweistellig einge- 
geben werden. 

Zum Üben geben Sie bitte Sektor=l und 
Track=2 ein. Sofort startet das Laufwerk und 
überträgt den Sektor in den Computerspeicher. 


Der Bildschirm ist jetzt in zwei weitere Fen- 
ster aufgeteilt: links das "Hexfenster", das den 
gesamten Sektor in hexadezimaler Schreibung 
enthält, und rechts das ASCII-Fenster, das den 
Sektorinhalt als ASCII-Text interpretiert. 


Im Hexfenster werden jeweils drei Bytes zu 
einer Gruppe zusammengefaßt. Dies führt zu 
einer optimalen Bildschirmdarstellung, weil 
stets der gesamte Sektor auf den Bildschirm 
paßt. 


Der Menuepunkt EDIT 


Rufen Sie nun mit der <Control>-<Cursor 
links>-Tastenkombination und COPY den 
Edit-Modus auf. Sie sehen dann, daß das linke 
obere Zeichen im Hexfenster blinkt. Probieren 
Sie nun alle vier Cursor-Tasten aus; mit ihnen 
können Sie den Cursor im Hexfenster bewe- 
gen. Fahren Sie nun auch mit dem Cursor ein- 
mal in das ASCII-Fenster! Daran sehen Sie, 
auf welch simple Art und Weise Sie zwischen 
den Fenstern hin- und herspringen können. 
Im rechten Fenster sehen Sie den Eintrag in 
das Inhaltsverzeichnis. Steuern Sie den Cursor 
dorthin und geben Sie einen beliebigen Buch- 
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staben ein. Sofort wird dieser invers darge- 
stellt. Blicken Sie jetzt nach links in das 
Hexfenster, so können Sie sehen, daß dort die 
entsprechende hexadezimale Ziffer ebenfalls 
invers dargestellt ist. 


Bewegen Sie nun den Cursor zurück ins Hex- 
fenster, genauer gesagt: auf die erste hexa- 
dezimale Ziffer in der linken oberen Ecke des 
Hexfensters. Dort steht normalerweise der 
Wert &00 - wenn das bei Ihnen nicht der Fall 
ist, macht das aber auch nichts! Stellen Sie den 
Cursor auf die erste "0" und tippen Sie eine 
"j" ein. Sofort wird die "1" invers dargestellt 
und die Eingabe zusammen mit der unverän- 
derten zweiten Null als die Hexadezimal- 
Ziffer "10" interpretiert. Dementsprechend 
erscheint im ASCII-Fenster das Zeichen mit 
diesem Code. Tippen Sie jetzt weiterhin eine 
"" ein, so steht im Hexfenster "12". Im 
ASCIH-Fenster wird das Zeichen durch den 
neuen Code &12 ersetzt. 
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Der Menuepunkt SCHREIBEN 


Wenn Sie alle gewünschten Änderungen 
durchgeführt haben, können Sie direkt aus 
dem Edit-Modus mit den Tasten <Control>- 
<Cursor links> und <Control>-<Cursor rechts> 
einen anderen Menuepunkt aufrufen, zum 
Bei-spiel "Schreiben". 


Wird diese Wahl mit COPY bestätigt, so 
schreibt DiskEdit den Sektor ohne weitere 
Rückfrage direkt auf die Diskette zurück. 
Haben Sie aber die oben beschriebene Än- 
derung am Sektor 1 Track 2 durchgeführt, 
dürfte die Ausgabe des Inhaltsverzeichnisses 
und das Einlesen des Programms PRINT.BAS 
ziemliche Schwierigkeiten bereiten. Wie gut, 
daß Sie dieses Programm nicht mehr benö- 
tigen! Wollen Sie die ÜbungsDiskette 
weiterhin verwenden, empfiehlt es sich, diese 
neu zu formatieren. 


Der Menuepunkt HARDCOPY 


Hiermit können Sie einen Bildschirmausdruck 
des gelesenen Sektors auf dem Drucker aus- 
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geben. Diese Routine ist universell geschrieben 
und dürfte mit allen 80-Zeichen-Druckern 
reibungslos zusammenarbeiten. Denn sie 
verzichtet auf Grafikdarstellung. Auch die in- 
versen Zeichen und die Grafiksymbole außer- 
halb des genormten ASCII-Bereichs von 32 bis 
127 werden durch Leerzeichen ersetzt. 


Der Menuepunkt ENDE 


Hiermit können Sie die Arbeit mit DiskEdit 
beenden. Nach einer Sicherheitsabfrage erfolgt 
der Rücksprung nach Basic. Sie sollten aber 
besser zusätzlich einen Reset mit CALL 0 aus- 
lösen, damit alle in der Folge geladenen Pro- 
gramme einwandfrei funktionieren. 


Der Menuepunkt DRIVE 


Dieser Menuepunkt steht bewußt etwas 
abseits, da er von vielen Benutzern nicht 
benötigt wird. Er ist nur sinnvoll bei der 
Verwendung zweier Laufwerke. Sobald er 
aufgerufen wird, erscheint statt des aktuellen 
Laufwerks ein Fragezeichen. Sie können dann 
den Buchsta-ben "A" oder "B" eingeben. Alle 
folgenden Diskettenzugriffe gehen dann auf 
das ange-wählte Laufwerk. 


Fehlermeldungen 


DiskEdit beschränkt sich nicht auf lakonische 
Fehlerkürzel wie "Disk write-protected - Re- 
try, Ignore or Cancel?" oder gar nur Fehler- 
nummern. 


Stattdessen erscheint mitten im Hexfenster ein 
neues Fenster, das "Fehlerfenster". Dort er- 
fahren Sie ausführlich und in deutscher Spra- 
che, was schiefgelaufen ist. 

Es gibt folgende Meldungen: 

Fehler! 


Das Laufwerk x ist nicht ansprechbar. Bitte 


Diskettenmonitor 


40 UTILITIES 


Diskettenmonitor 


DiskEdit 


stellen Sie fest, ob das Laufwerk angeschlossen 
und eine Diskette eingelegt ist! 


Fehler! 


Die Diskette im Laufwerk x ist schreibge- 
schützt! Entfernen Sie entweder den Schreib- 
schutz oder legen Sie eine andere Diskette ein! 


Fehler! 


Sie haben noch keinen Sektor eingelesen. 
Demnach können Sie auch keinen speichern 
oder editieren! 


Fehler! 


Sie haben ESCAPE gedrückt. Mit einem Ta- 
stendruck geht es weiter im Programm! 


Diese Meldungen dürften wohl keine Schwie- 
rigkeiten beim Verständnis bereiten. Darum 
kann auf eine noch genauere Erklärung wohl 
verzichtet werden. 


Im Fehlerfenster erscheint rechts unten immer 
ein "Ok" mit einer Umrahmung. Dies bedeutet, 
daß Sie nach Beseitigung der Fehlerursache 
nur eine beliebige Taste zu drücken brauchen, 
um die Fehlermeldung zu löschen. Sobald dies 
geschieht, wird auch der Inhalt des Hexfen- 


sters wiederhergestellt, und Sie können normal 
weiterarbeiten. 


Ill. Anwendungen für DiskEdit 


Ziel dieses Kapitels soll es sein, Ihnen einige 
nützliche Tips und Hinweise zu geben, wie Sie 
DiskEdit noch besser verwenden können. 


Wiederherstellen gelöschter Dateien 


Sicher haben Sie sich schon einmal geärgert, 
weil Sie versehentlich eine Datei gelöscht 


haben, die Sie noch benötigten. Da gibt es 
normalerweise keine Rettung mehr, auch wenn 
Sie Ihren folgenschweren Irrtum sofort nach 
Eingabe des 


Kommandos ERA erkennen. 


Doch gelöscht ist nicht verloren! Mit DiskEdit 
können Sie praktisch jede Datei retten, wenn 
Sie nur Ihren Eingabefehler rechtzeitig be- 
merkt und möglichst keine neuen Dateien auf 
dieser Diskette abgespeichert haben. Kopieren 
Sie zuerst die Unglücksdiskette mit einem 
Sektorenkopierer wie CP/Ms DISKCOPY oder 
COPYDISK auf eine leere Diskette und ver- 
wenden Sie nur diese Kopiediskette mit 
DiskEdit. 


Laden Sie wie gewohnt DiskEdit, indem Sie 
einen Reset auslösen und RUN "A:DISK- 
VIEW" eingeben. Legen Sie die zu rettende 
Kopiediskette in ein Diskettenlaufwerk. Nun 
müssen Sie das Inhaltsverzeichnis der Diskette 
einlesen. Hier noch einmal die Aufstellung des 
Speicherorts bei den einzelnen Formaten: 


CP/M-System Data-Only CP/M-86 
ER 2 0 0 
Pr Da De N 
Te ar un vu 


Wenn Sie also eine Diskette mit einer sehr 
großen Anzahl von Dateien haben, müssen Sie 
bis zu vier Sektoren laden, um den Datei- 
namen im Inhaltsverzeichnis zu finden. Haben 
Sie ihn in einem Sektor entdeckt, rufen Sie 
den Edit-Modus auf, fahren mit dem Cursor 
im Hexfenster auf die Position eines Bytes vor 
dem Dateinamen. Dort müßte der Code &E5 
stehen, das Zeichen für gelöschte Dateien. 
Tragen Sie hier &00 ein und schreiben Sie den 
Sektor auf die Diskette zurück. Fertig - jetzt 
müßte sich die Datei oder das Programm wie- 
der einlesen lassen. 


Lösch- und Listschutz 


Mit dem CP/M-Programm STAT.COM kön- 
nen Sie Dateien zu SYS-Files machen, die 
nicht mehr im Directory der Diskette auf- 
tauchen. Auch können Sie einzelne Dateien zu 
Nur-Lese-Dateien (Read-Only) erklären, die 


man nicht mehr löschen kann. B . 
Genau dasselbe können Sie auch mit DiskEdit 


machen. Suchen Sie dazu wieder im Directory 


der Diskette die gewünschte Datei auf. sondern vielmehr eine generelle Empfehlung. 
Mit DiskEdit können Sie auch englische 
Um Dateien im Inhaltsverzeichnis der Diskette Systemmeldungen von Diskettenprogrammen 
unsichtbar zu machen, müssen Sie beim zwei- ins Deutsche oder eine beliebige andere 
ten Zeichen der Extension, zum Beispiel beim Sprache übersetzen. Probieren Sie es doch 
"A" von ".BAS" das siebte Bit setzen. Zum Set- einmal aus mit den CP/M-Systemspuren! 
zen des Read-Only-Modus legen Sie das siebte Bevor Sie sich allerdings an das Anpassen 
Bit im ersten Zeichen der Extension auf Eins, teuer gekaufter Software wagen, sollten Sie 
also beispielsweise das "B" in ".BIN". aber wirklich sattelfest in der Bedienung von 
DiskEdit sein! 
Sobald Sie den Sektor zurückgeschrieben ha- 
ben, sind die Änderungen wirksam. Dieser Text kann natürlich nicht alle 
möglichen Anwendungen des Diskettenmoni- 
tors DiskEdit aufzeigen. Forschen Sie doch 
selbst ein wenig! Das zahlt sich dann für Sie 
Anpassung von Programmen aus in der komfortableren Bedienung Ihres 
Computers. 


Dies ist eigentlich kein richtiger Trick, xs(Martin Kotul a) RRRRRURRUUDDEE86- 0023M 
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1010 * * 
1020 a j DiskEdit - Disketten-Monitor u 
1030 ° * ” 
1040 KARKAKAKKKKKKHK TI TI TI TI TI TI TH TH TH TH TI TH TH TA TH TH TH TU TH TI TH TH TI TR TH TH TH TH TH TU TH TH TH TH TH a a a a a a a a a a a a a 
1050 
1060 ° MASCHINENCODE EINLESEN I 
1070 ON BREAK GOSUB 4950: 1|DISC I 
1080 SYMBOL AFTER 250 I 
1090 MEMORY &9FFF:adr=&AlLFF | 
1100 MODE 2:INK 1,0:INK 0,27:BORDER 10:PEN 1:PAPER O0 l 
I 
I 


1110 FOR i=&A200 TO &A350:READ a:POKE i,a:NEXT i 

1120 POKE &A323,180:POKE &BE78,255:drives="A" 

1130 ° DATA-ZEILEN FUER DEN MASCHINENCODE 
1140 DATA &84,&85,&C1,&C2,&00,&00,&00,&00,&21,&02,&42,&18,&03,&21,&03,&A2 
1150 DATA &CD,&D4,&BC,&D0,&22,6&04,&42,&79,&32,&06,&A2,&CD,&DD,&A2,&DF,&04 
1160 DATA &A2,&CD,&E9,&42,&C9,&21,&00,&A2,&CD,&D4,&BC,&D0,&CD,&DD,&A2,&22 
1170 DATA &04,&42,&79,&32,&06,&A2,&1E,&00,&16,&00,&0E,&C1,&21,&00,&A0 ,&DF 

1180 DATA &04,&A2,&CD,&E9,&A2,&3E,&02,&CD,&B4,&BB,&21,&00,&A0,&11,&00,&A2 I 
1190 DATA &7E,&23,&D5,&E5,&CD,&5D,&BB,&E1,&D1,&CD,&2B,&A3,&20,&F2,&3E,&01 
1200 DATA &CD,&B4,&BB,&21,&00,&A0,&11,&00,&42,&06,&04,&97,&32,&07,&A2,&4E 
1210 DATA &CD,&99,&A2,&23,&CD,&2B,&A3,&C8,&10,&F5,&3E,&20,&CD,&5A,&BB,&06 
1220 DATA &04,&3A,&07,&42,&3C,&32,&07,&A2,&FE,&06,&20,&E3,&3E,&08,&CD,&5A 
1230 DATA &BB,&97,&32,&07,6&42,&06,&04,&18,&D6,&79,&CD,&A2,&42,&79,&CD,&A6 
1240 DATA &A2,&C9,&1F,&1F,&1F,&1F,&E6,&0F,&C6,&30,&FE,&3A,&38,&02,&C6,&07 | 
1250 DATA &C3,&5A,&BB,&CD,&60,&BB,&F5,&E1,&22,&60,&01,&C9,&21,&01,&A2,&CD 
1260 DATA &D4,&BC,&D0,&CD,&DD,&A2,&22,&04,&42,&79,&32,&06,&A2,&1E,&00,&16 
1270 DATA &00,&0E,&C1,&21,&00,&A0,&DF,&04,&A2,&CD,&E9,&A2,&C9,&3A,&5A,&BB 
1280 DATA &32,&66,&01,&3E,&C9,&32,&5A,&BB,&C9, &CB,&BF,&32,&64,&01,&3A,&66 
1290 DATA &01,632,&5A,&BB,&C9,&3E,&07,&CD,&B4,&BB,&21,&01,&01,&CD,&75,&BB | 
1300 DATA &FD,&21,&00,&00,&CD,&60,&BB,&FD,&23,&FE,&20,&30,&02,&3E,&20,&FE 
1310 DATA &7F,&38,&02,&3E,&20,&CD,&2B,&BD,&30,&FB,&3E,&09,&CD,&5A,&BB,&FD 

1320 DATA &ES,&El,&11,&FA,&07,&CD,&2B,&A3,&20,&DA,&C9,&E5,&B7,&ED,&52,&E1 I 
1330 DATA &C9 I 
1340 DATA &44,655,&4D,&4D,&59,&2E,&24,&24,&24,&06,&09,&21,&31,&A3,&11,&51 
1350 DATA &A3,&CD,&DD,&A2,&CD,&8C,&BC,&F5,&CD,&8F,&BC,&Fl,&CD,&E9,&A2,&C9 
1360 * DEUTSCHE SONDERZEICHEN UND GRAFIKSYMBOLE I 
1370 SYMBOL 250,0,15,63,255,255,63,15,0 
1380 SYMBOL 251,0,240,252,255,255,252,240,0 I 
1390 SYMBOL 253,&66,&0,&78,&C,&7C,&CC,&76,&0 
1400 SYMBOL 254,&66,&0,&3C,&66,&66,&66,&3C,&0 
1410 SYMBOL 255,&66,&0,&66,&66,&66,&66, &3E,&0 
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1420 ° FUNKTIONSDEFINITIONEN --------------- -- ------ - --- - -- ---- --- --- - -- - - -- - - - 
1430 DEF FNascaddr= (zeile-]) *24+spalte-55 

1440 DEF FNhexaddr= (zeite-l) *24+ (spatte-spaces) \2-1 

1450 ° MENUELEISTE UND BILDSCHIRMAUFBAU ZEICHNEN --------------- ------ ---- -- - 
1460 setect=1 ° 0O=Edit l=Lesen 2=Schreiben 3=Hardcopy 4=Ende 5=Drive 
1470 row=396:cotumn=10:breite=?2:breit2=2 

1480 text$="Edit":menu (0) =cotumn 

1490 tength (0)=4:G0OSUB 3700 

1500 text$="Lesen" :menu (l) =coLumn 

1510 Length (1)=5:GOSUB 3700 

1520 text$="Schreiben" :menu (2) =colunmn 

1530 tength (2) =9:GOSUB 3700 

1540 text$="Hardcopy" :menu (3) =cotumn 

1550 tength (3) =8:G0SUB 3700 

1560 text$="Ende" :menu (4) =322 

1570 Length (4) =4:G0OSUB 3700 

1580 text$="Drive A":menu (5) =cotumn 

1590 Length (5) =7:GOSUB 3700 

1600 MOVE 2,370:DRAW 640,370 

1610 FOR i=638 TO 640:MOVE i,370:DRAW i,12:NEXT i 

1620 FOR i=0 TO 1:MOVE i,370:DRAW i,12:NEXT i 

1630 MOVE 2,12:DRAW 640,12 

1640 MOVE 435,12:DRAW 435,370:MOVE 436,12:DRAK 436,370 

1650 breite=S:breit2=3 ’column=460 

1660 text$="Sektor 1":GOS5UB 3700:text$="Track 00":GOSUB 3700 

1670 menu (6) =cotumn 

1680 WINDOW #1,2,54,3,24 ° Hexadezimat-Fenster 

1690 WINDOW #2,56,79,3,24 ° ASCII-Fenster 

1700 WINDOW #5,12,50,14,20 

1710 WINDOW 2,79,3,24 “  WINDOR #1 + WINDOH #2 

1720 ° TITELBILD MIT INSTRUKTIONEN ------------------------ ------- — -- -------- 
1730 PRINT: PRINT:PRINT 

1740 PRINT TAB (25) ;"DiskEdit" 

1750 PRINT TAB (25) ;STRING$ (8,95) 

1760 PRINT: PRINT 

1770 PRINT TAB (7) ;"Mit DiskEdit k"+CHR$ (254) +"nnen Sie jeden Sektor auf" 
1780 PRINT 

1790 PRINT TAB(7) ;"der Diskette Lesen, editieren und zur"+CHR$ (255) ; 
1800 PRINT "ck-":PRINT 

1810 PRINT TAB (7) ;"schreiben." 

1820 PRINT: PRINT 

1830 WHILE INKEY$S<>"":WEND ° Tastaturpuffer Leeren 

1840 LOCATE 12,20:PRINT "Bitte dr"+CHR$ (255) +"cken Sie eine Taste!" 
1850 FOR i=1 TO 160:IF INKEYS<>"" THEN 1900 

1860 NEXT i 

1870 LOCATE 12,20:PRINT SPACES (29) 

1880 FOR i=1 TO 110:IF INKEYS<>"" THEN 1900 

1890 NEXT i:GOTO 1840 ; 

1900 CLS #1:CLS #2 

1910 WHILE INKEY$<>"":WEND ° Tastaturpuffer Loeschen 
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9.000600. 0.00°6.00.0°0.0020 000 0%0%6 
0:00.00 0.098000 90%0%.©00% 0.0.0 9.0 %-0 


1920 ° VERBINDUNG ZU DEN MASCHINENPROGRAMMEN ------------- -- ---------- -- -- - - -- 
7,) 1930 errmsg=&164 ‘” Fehternummer des FDC 
WU 1940 waitkey=&BBl8 “ Auf Tastendruck warten 
1950 ° Datenadressen fuer SEKTOR LESEN: 
ES 1960 drive=&A237 “ Laufwerk A/B selektieren 
fer 1970 track=&A239 “ Track auf der Diskette 
en 1980 sector=&A23B *" Sektor auf der Diskette 
Pa | 1990 ° Datenadressen fuer SEKTOR SCHREIBEN: 
2000 wdrive=&A2CE “ Laufwerk A/B selektieren 
ui 2010 wtrack=&A2D0 - Track auf der Diskette 
be 2020 wsector=&A2D2 “ Sektor auf der Diskette 
2030 ° Sprungadressen der Maschinenprogramme: 
un } 2040 Laufa=&A208 “ Laufwerk A auswaehlen 
2050 Laufb=&A20D “ Laufwerk B auswaehlen 
2060 readsector=&A225 ° Sektor Lesen 
N 2070 showsector=&A245 ° Bereits gelesenen Sektor anzeigen 


Schneider 


DiskEdit““ 


getchar=&A2B3 ” Zeichen vom Bildschirm Lesen 
writesector=&A2BC ° Sektor schreiben 

hardcopy=&A2F5 “ Bitdschirm ausdrucken 

getparams=&A33A “ Disketten-Parameter aktualisieren 

* STANDARDEINSTELLUNGEN DER DISKETTE 

POKE drive,0:POKE wdrive,O *” Laufwerk A auswaehten 
POKE track,0:POKE wtrack,O ” Mit Spur O0 beginnen 
secnum=1:G05UB 4080 ° Sektor und codierte Formatierungsart 
“” EIN ELEMENT DER MENUELEISTE AUSWAEHLEN 

ON BREAK GOSUB 4790 

sel=]l ° Beim ersten Durchlauf SEKTOR LESEN als Vorauswahı anzeigen 
row=396:column=68:breite=5:breit2=3:text$="Lesen" :GOSUB 3700 
in$=INKEY$:IF in$="" THEN 2200 

IF in$=CHR$ (&E0) THEN 2430 ° COPY vertaesst Menue-Auswahl 
IF in$<>CHR$S (&FA) AND in$<>CHRS (&FB) THEN 2200 

IF sel=0 THEN text$="Edit" 

IF sel=1l THEN text$="Lesen" 

IF sel=2 THEN text$="Schreiben" 

IF sel=3 THEN text$="Hardcopy" 

IF setl=4 THEN text$="Ende" 

IF sel=5 THEN text$="Drive "+drive$ 

elem=seL:GOSUB 3870 

IF in$=CHR$ (&FA) THEN sel=seL-l 

IF in$=CHR$ (&FB) THEN sel=seL+l 

IF seı<O THEN seiL=5 

IF seL>5 THEN seL=0 

IF set=0 THEN text$="Edit" 

IF setl=] THEN text$="Lesen" 

IF set=2 THEN text$="Schreiben" 

IF sel=3 THEN text$="Hardcopy" 

IF set=4 THEN text$="Ende" 

IF sel=5 THEN text$5="Drive "+drive$ 

breite=5:breit2=3 , 

colLumn=menu (sel) :GOSUB 3760 

GOTO 2200 

ON seL+l GOTO 2450,3200,3400,3450,3490,3580 

“ FENSTER 1: EDIT = Editieren eines Sektors 

IF sectorshown=0 THEN GOSUB 4620:G0OTO 2200 
row=396:column=10:breite=5:breit2=3:text$="Edit":GOSUB 3700 
zeile=l:spalte=1:LOCATE spalte,zeile 

LOCATE spalte,zeile:GOSUB 3960 

LOCATE spalte,zeite:PRINT CHRS (32) ; 

IF char=32 THEN dspchar=143 ELSE dspchar=char 

FOR i=1 TO 60:in$=INKEY$:i$=UPPERS (in$) : IF i$<>"" THEN 2600 
NEXT i 

LOCATE spalte,zeite 

IF invert=0 THEN PRINT CHRS (1) ;CHRS (dspchar) ;:GOTO 2560 
PRINT CHRS (24) ;CHRS (1) ;CHRS (dspchar) ;CHRS (24) ; 

FOR i=1 TO 40:in$=INKEY$S:i$=UPPERS (in$) :IF i$<>"" THEN 2600 
NEXT i 

GOTO 2490 

“ CTRL-Cursor Links/rechts vertaesst EDIT 

IF NOT(i$=CHR$S (&FA) OR i$=CHRS (&FB)) THEN 2660 

PRINT CHRS (8) ; 

IF invert=1 THEN PRINT CHBS (24) ; 

‘PRINT CHRS$S (1) ;CHRS$S (char) ; 

IF invert=1 THEN PRINT CHRS$S (24); 

GOTO 2220 

LOCATE spalte,zeitle 

IF invert=1 THEN PRINT CHRS$S (24); 

PRINT CHRS$S (1) ;CHR$ (char); 

IF invert=1 THEN PRINT CHR$ (24); 

IF spaLte<55 THEN hexfieLd=-] ELSE hexfieLd=0 

IF hexfietd AND INSTR("0123456789ABCDEF",iS)<>0 THEN 2920 
IF NOT hexfieLd AND ASC(i$)<128 THEN 3100 
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2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 


JiskEdit 


spalt=spalte:zalt=zeile 


* Cursortasten in Bewegungsrichtung umsetzen --------------------------- 


IF i$=CHRS (&F0) THEN zeile=zeile-l 

IF i$=CHR$ (&Fl) THEN zeile=zeile+l 

IF i$=CHRB$ (&F2) THEN spalte=spalte-l 

IF i$=CHRS (&F3) THEN spalte=spalte+l 

*° SPALTE/ZEILE auf den Wert ueberpruefen 
IF spatte=0 AND zeite=1 THEN spalte=| 

IF spatte=79 AND zeite=22 THEN spalte=78 
IF spatte>62 AND zeile=22 THEN spalte=spalt:zeile=zalt 

IF spatte=0 THEN zeile=zeile-l:spalte=78 

IF zeite=0 THEN zeile=] 

IF spatte=79 THEN zeile=zeite+l:spalte=] 

IF zeite>22 THEN zeite=22 

IF zeite=22 AND spalte>1l7 AND spaLte<55 THEN spalte=spalt:zeile=zalt 
IF spaltte=9 OR spalte=18 OR spatte=27 THEN 2750 

IF spatte=36 OR spatte=45 OR spatte=54 THEN 2750 

GOTO 2480 

hoLdsp=spatlte 

IF hoLdsp>8 THEN hoLdsp=hoLdsp-9:GOTO 2930 

IF hotdsp/2=hoLdsp\2 THEN 2960 

GOSUB 3960:hx$=i$+CHR$ (char) :PRINT CHR$S (8) ;:GOTO 2970 
PRINT CHRS$ (8) ;CHRS$ (8) ;:GOSUB 3960:hx$=CHR$ (char) +i$ 

PRINT CHR$ (24) ;hx$;CHRS (24) ;CHRS (9) ; 
spalte=spatte+l:i$=CHR$ (&F3) 

spaces=0:holLdsp=spalte 

IF hotLdsp>9 THEN holdsp=shoLdsp-9:spaces=spaces+l:GOTO 3000 
POKE FNhexaddr+40960,VAL("&"+hx$) 

aszeile=FNhexaddr\24+1 

asspalte=FNhexaddr- (aszeile-]) *24+55 
srow=VPOS (#0) :scolLumn=POS (#0) 

LOCATE asspalte,aszeile 

PRINT CHRS (24) ;CHRS (1) ;CHRS (VAL ("&"+hx$)) ;CHRS (24) ; 

LOCATE scolumn,srow 

GOTO 2800 


Eingabe von ASCII-Zeichen --------------------------------------- - - - 


LOCATE spalte,zeile 

PRINT CHR$ (24) ;CHRS (1) ;in$;CHRS$S (24) ; 

char=ASC (in$) :POKE &A000+FNascaddr ‚char 
spalte=spalte+l 

hexsp= (spatte-56) *2+l:sp2=hexsp 

IF sp2>8 THEN sp2=sp2-8:hexsp=hexsp+1:GOTO 3150 
LOCATE hexsp,zeite 

PRINT CHR$ (24) ;HEX$ (char ,2) ;CHR$S (24); 

GOTO 2800 


“FENSTER 2: LESEN eines Sektors ----------------------------------- - - 


ON BREAK GOSUB 4950 

PRINT CHRS (7) ;:TAG:MOVE 522,394: PRINT "?";:MOVE 522,394 
i$S=INKEY$:IF i$="" THEN 3220 

IF ASC(i$)<49 OR ASC(i$)>57 THEN SOUND 1,1000,50:G0TO 3220 
IF format=1 AND i$="9" THEN SOUND 1,1000,50:G0TO 3220 
PRINT i$; :TAGOFF:sect=VAL(i$) 

PRINT CHR$ (7) ;:TAG:MOVE 604,394: PRINT "?";:MOVE 604,394 
i$=INKEY$:IF i$="" THEN 3270 

IF ASC(i$)<48 OR ASC(i$)>51 THEN SOUND 1,1000,50:G0TO 3270 
PRINT i$; :TAGOFF:trk$=i$ 

PRINT CHRS$S (7) ;:TAG:MOVE 612,394: PRINT "?";:MOVE 612,394 
i$S=INKEYS:IF i$="" THEN 3310 

IF ASC(i$)<48 OR ASC(i$)>57 THEN SOUND 1,1000,50:G0TO 3310 
PRINT i$;:TAGOFF:trk$=trk$+i$:trk=VAL(trk$) 

POKE track,trk:POKE wtrack,trk 

secnum=sect:GOSUB 4080 ° Sektor und codierte Formatierungsart 
GOSUB 4170:GOSUB 4210:CALL readsector 

sectorshown=1 

ON BREAK GOSUB 4790:G0TO 2200 


Eingabe von Hexzahlen ------------------------- 77777777 


@.. 0.08 8.0.07 8.8 0.5 0:07,09: 0: 9.9 DO 


D = : E r aktn/ 

. FENSTER 3: SCHREIBEN eines Sektors 2.2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2.2 2 2 2 20; 
IF sectorshown=0 THEN 4620 
CALL writesector ° Maschinencode zum Sektorentesen aufrufen 
IF PEEK(errmsg) \64<X>0 THEN GOSUB 4440 
GOTO 2200 ° Zurueck in die Menueschteife 
% FENSTER 4: HARDCOPY WAERKKKAKH HT TI TI TI TI N N NN TH N TH A a A a a a a a a a a a a a a a a a a a 
PRINT #8:PRINT #8 
CALL hardcopy 
GOTO 2200 
« FENSTER 5; ENDE AA TI TI N TE A TH TU TH TH TH TH TH TE TE TH TH TH TU TH HT A A A A A a a a a a a a a a a a a a 
CLS #1l:CL& #2 
LOCATE 8,5:PRINT "Sind Sie sicher, da"+CHR$(177)+" Sie die Arbeit" 
PRINT:PRINT TAB (8) ;"mit DiskEdit beenden woLLen?" 
PRINT CHRS (7); . 
i$=UPPER$ (INKEY$) :IF i$="" THEN 3530 
IF i$="J" THEN MODE 2:END 
IE i$="N" THEN CLS #1:GOTO 2200 
PRINT CHRS$S (7) ;:GOTO 3530 

FENSTER 6: DRIVE WARE TITTEN TH TH TR TH TH N A TH TE a a a a a a a a a a a 
PRINT CHRS (7) ;:MOVE 432,394:TAG: PRINT "?";:TAGOFF:MOVE 432,394 
i$=UPPERS (INKEYS$S) : IF i$="" THEN 3590 
arvoLd$=drive$ 
IF i$="A" THEN drive$="A":CALL Laufa:GOTO 3640 
IF i$="B" THEN drive$="B":CALL Laufb:GOTO 3640 
SOUND 1,1000,50:G0TO 3580 
IF PEEK(errmsg)<>0 AND PEEK(errmsg)<>1l THEN GOSUB 4250 
MOVE 432,394:TAG: PRINT drive$; :TAGOFF 
driveab=ASC (drive$) -65 
POKE drive,driveab:POKE wdrive,driveab 
secnum=1:GOSUB 4080:G0TO 2200 

Unterprogramm: Ein Etement der Menueleiste zeichnen "WW 
PLOT 640,400,1:MOVE coLunmn+5,row-2 
TAG 
FOR taen=1 TO LEN (text$) 
PRINT MID$ (text$,taen,]l); 
NEXT Laen 
TAGOFF 
MOVE cotumn,row+2:DRAWR 8*LEN(text$)+9,0,1 
MOVE column, row+4:DRAWR 8*LEN (text$) +9,0 
FOR i=1 TO breite 
DRAWR 0,-22:MOVER 1,22:NEXT i:MOVER -1,0 
MOVER 0,-22:xp=XPOS:yp=YPOS:row2=row 
FOR i=1 TO breit2:yp=yp-l:row2=row2-l 
MOVE xp, yp:DRAW cotLumn,row2-18:NEXT i 
DRAWR 0,23:MOVER -1,-23:DRAWR 0,23 
cotumn=cotumn+38*LEN (text$) +26 
RETURN 
* Verstaerkung der Kaestchenumrandung entfernen Ya 
column=menu (elem) :Ln=Length (etem) :MOVE column, row+2 
MOVER 8*LEN (text$) +9, 0 
FOR i=1 TO 5:DRAWR 0,-22,0:MOVER 1,22:NEXT i 
MOVER 0,-20:xp=XPOS: yp=YPOS: row2=row 
FOR i=3 TO 5:yp=yp-l:row2=row2-l 
MOVE xp, yp:DRAW cotumn-2,row2-18,0:NEXT i 
breite=2:breit2=2:GOSUB 3700 
RETURN 
= GETCHAR: Ausgabe aus CHAR und CARRY La 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 20; 
CALL getchar 
char=PEEK (&161) :carry=1l AND PEEK (&160) 
IF carry=1 THEN invert=0:GOTO 4020 
PRINT CHRS$S (24) ;:CALL getchar 
char=PEEK (&161) :carry=1l AND PEEK (&160) 
PRINT CHRS (24) ;:invert=1 
POKE &162,VPOS (#0) :POKE &163,POS (#1) :RETURN 


” CHAR wiederherstellen "We 
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4040 v=VPOS (#0) :p=POS (#0) 

4050 LOCATE PEEK (&163) ‚PEEK (&162) :PRINT CHRS$ (1) ;CHRS (char); 

4060 LOCATE p,v:RETURN 

4070 . Formatierungsart feststellen KAKKARKAKKKKH TH TI TH TI TH TH TH TH TH TH N TH TH TH TH TH TH TH TH AH A A A A a a a 
4080 CALL getparams ° FDC-Parameter aktualisieren 

4090 er=PEEK (errmsg) 

4100 IF er<>0 AND er<>127 THEN drvoLd$=drive$:GOSUB 4250:G0OTO 4080 

4110 fdcbLlock=PEEK (&BE42) +PEEK (&BE43) *256 

4120 format=PEEK (fdcbuock+&F) 

4130 POKE sector, format-l+secnum 

4140 POKE wsector ,format-l+secnum 

4150 RETURN 

4160 ° Fenster #1 Loeschen und Linien wiederherstellen Krk kit 
4170 CLS #1 

4180 FOR i=19 TO 27 STEP 4:MOVE 145,i:DRAW 430, i:NEXT i 

4190 RETURN 

4200 ° Fenster #2 toeschen und Linien wiederherstellen KW W333 
4210 CLS #2 

4220 FOR i=19 TO 27 STEP 4:MOVE 507,i:DRAW 630, i:NEXT i 

4230 RETURN 

4240 END ° ----------------------------------- 2 -222222222222222.........0.0 
4250 WINDOW #6,11,40,6,22:CLS #6 

4260 MOVE 100,300:DRAWR 200,0,1:DRAHR 0,-220:DRAWR -200,0:DRAHR 0,220 

4270 MOVE 101,298:DRAHR 200,0:DRAHR 0,-220:DRANR -200,0:DRAHR 0,220 

4280 MOVE 106,292:DRAWR 196,0:DRAWR 0,-216:DRAWR -196,0:DRAWR 0,216 

4290 MOVER 1,0:DRAWR 0,-196 

4300 LOCATE 15,7:80UND 1,1000,50:PRINT "Fehter!" 

4310 LOCATE 15,9:PRINT "Das Laufwerk "+drive$+" ist" 

4320 LOCATE 15,10:PRINT "nicht ansprechbar." 

4330 LOCATE 15,11:PRINT "Bitte stellen Sie" 

4340 LOCATE 15,12:PRINT "fest, ob das Laufwerk" 

4350 LOCATE 15,13:PRINT "angeschlossen und" 

4360 LOCATE 15,14:PRINT "eine Diskette" 

4370 LOCATE 15,15:PRINT "eingetegt ist! ";CHRS$ (150) ;STRINGS$ (2,154) ;CHRS (156) 
4380 LOCATE 32,16:PRINT CHRS (149) ;"OkK"CHRS (149) 

4390 LOCATE 32,17:PRINT CHR$S (147) ;STRINGS (2,154) ;CHR$S (153) 

4400 CALL waitkey:drive$=drvoLd$ 

4410 IF sectorshown=0 THEN CLS #1:CLS #2:RETURN 

4420 LOCATE #1,1,1:LOCATE #2,1,1:CALL showsector 

4430 RETURN 

4450 MOVE 100,300:DRAWR 206,0,1:DRAHR 0,-220:DRAWR -206,0:DRAHR 0,220 

4460 MOVE 101,298:DRAWR 206,0:DRAWR 0,-220:DRAWR -206,0:DRAHR 0,220 

4470 MOVE 106,292:DRAWR 202,0:DRAWR 0,-216:DRAWR -202,0:DRAWR 0,216 

4480 MOVER 1,0:DRAWR 0,-220 

4490 LOCATE 15,7:S0UND 1,1000,50:PRINT "Fehler!" 

4500 LOCATE 15,9:PRINT "Die Diskette im" 

4510 LOCATE 15,10:PRINT "Laufwerk "+drive$ +" ist" 

4520 LOCATE 15,11:PRINT "schreibgesch"+CHR$ (255) +"tzt!" 

4530 LOCATE 15,12:PRINT "Entfernen Sie entweder" 

4540 LOCATE 15,13:PRINT "den Schreibschutz oder" 

4550 LOCATE 15,14:PRINT "Legen Sie eine andere" 

4560 LOCATE 15,15:PRINT "Diskette ein! ";CHR$ (150) ;STRINGS$S (2,154) ;CHRS (156) 
4570 LOCATE 32,16:PRINT CHRS$S (149) ;"Ok"CHRS (149) 

4580 LOCATE 32,17:PRINT CHRS (147) ;STRINGS (2,154) ;CHRS (153) 

4590 CALL waitkey 

4600 LOCATE #1,1,1:LOCATE #2,1,1:CALL showsector 

4610 RETURN 

4620 WINDOW #6,11,40,6,22:CLS #6 


4630 MOVE 100,300:DRAWR 206,0,1:DRAWR 0,-220:DRAHR -206,0:DRAHWR 0,220 


4640 MOVE 101,298:DRAWR 206,0:DRAHR 0,-220:DRAWR -206,0:DRAHR 0,220 
4650 MOVE 106,292:DRAHR 202,0:DRAWHR 0,-216:DRAHR -202,0:DRAWR 0,216 
4660 MOVER 1,0:DRAHR 0,-216 

4670 LOCATE 15,7:SOUND 1,1000,50: PRINT "Fehter!" 

4680 LOCATE 15,9:PRINT "Sie haben noch" 
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Diskettenmonitor 


4690 LOCATE 15,10:PRINT "keinen Sektor" 


4700 LOCATE 15,11:PRINT "eingelesen." 


4710 LOCATE 15,13:PRINT "Demnach k"+CHR$ (254) +"nnen Sie" 
4720 LOCATE 15,14:PRINT "auch keinen speichern" 

4730 LOCATE 15,15:PRINT "oder editieren! 
4740 LOCATE 32,16:PRINT CHRS$S (149) ; "Ok"CHRS$ (149) 

4750 LOCATE 32,17:PRINT CHR$ (147) ;8TRING$ (2,154) ;CHRS (153) 


4760 CALL waitkey 

4770 CLS #1:CLS #2 

4780 GOTO 2200 

4790 WINDOW #6,11,40,6,22:CL& #6 


4800 MOVE 100,300:DRAWR 206,0,1:DRAWR 0,-220:DRAWNR -206,0:DRAWHR 0,220 
4810 MOVE 101,298:DRAHR 206,0:DRAHR 0,-220:DRAHR -206,0:DRAWR 0,220 
4820 MOVE 106,292:DRAHWR 202,0:DRAWHR 0,-216:DRANR -202,0:DRAWR 0,216 


4830 MOVER 1,0:DRAWR 0,-216 


4840 LOCATE 15,7:SOUND 1,1000,50:PRINT 
4850 LOCATE 15,9:PRINT "Sie haben ESCAPE" 

4860 LOCATE 15,10:PRINT "gedr"+CHR$ (255) +"ckt. Mit" 
4870 LOCATE 15,11:PRINT "einem Tastendruck geht" 
4880 LOCATE 15,12:PRINT "es weiter im Programm!" 


4890 LOCATE 15,15:PRINT " 


4900 LOCATE 32,16:PRINT CHRS$ (149) ;"Ok"CHR$ (149) 
4910 LOCATE 32,17:PRINT CHR$ (147) ;STRINGS$ (2,154) ;CHRS$S (153) 


4920 CALL waitkey 


4930 IF sectorshown=0 THEN CLS #1L:CLS #2:RETURN 
4940 LOCATE #1,1,1:LOCATE #2,1,1:CALL showsector :RETURN 


4950 RETURN 


#960 END * 


Textverarbeitung 


5 TEXTPROGRAMME UNTER 100, - DM 


Wer heute noch ein neues Textverarbeitungs- 
programm auf dem gut sortierten "Schneider 
Markt" etablieren will, muß sich schon etwas 
Besonderes einfallen lassen, wenn er neben 
den CPC Rennern Tasword, Textpack oder 
auch Wordstar bestehen will. 


Eins steht jedenfalls fest, wenn der Trend auf 
dem Softwaremarkt nicht trügt: Textverarbei- 
tung ohne die obligatorische Schnittstelle zu 
einer Daten- oder Adreßverwaltung ist nicht 
mehr "in". Vier der fünf hier getesteten 
Textverarbeitungen haben dies berücksichtigt. 


1. Textking 


(Van der Zalm, Wangerland) 


Lange Handbuchstudien sind nicht jedermanns 
Sache. Gerade Gelegenheitsschreiber werden 
eine gelungene Menueführung, die eine lange 


"Fehler!" 


Schneider 
akt 


";CHR$ (150) ;5TRING$ (2,154) ;CHRS (156) 


";CHR$ (150) ;STRING$ (2,154) ;CHRS$S (156) 


Liste von Steuerzeichen vermeidet, zu schätzen 
wissen und zu Programmen wie Textking grei- 
fen. Die Anwendung dieses Programms ist 
sehr einfach . Der Anwender verliert nie die 
Übersicht, ohne auf die üblichen Möglich- 
keiten eines Textprogrammes verzichten zu 
müssen. 


Die Druckereinstellung z.B. ist sehr komforta- 
bel und vielseitig und selbst auf eine umfang- 
reiche Diskettenverwaltung (z.B. Discinhalt 
drucken) kann man zurückgreifen. Editier- 
möglichkeiten im Text sind in ausreichendem . 
Umfang gegeben: Zeichen, Zeilen und Seiten 
löschen, Textblöcke kopieren und verschieben, 
Suchen und Ersetzen, Tabulatoren setzen u.a. 
gehören zum Programmangebot. Das Blättern 
im Text (8 Textseiten) sowie die Editiermodi 
(Überschreiben, Einfügen) sind, abgesehen 
von der unterschiedlichen Belegung z.B. der 
<Enter> Taste, gut gelöst. Der ca. 16 K große 
Textspeicher genügt im Regelfall auch. Wer 
zudem noch Adressen verwalten und Serien- 
briefe schreiben möchte, kann die Schnittstelle 


Textverarbeitung 


Textverarbeitung 


zur Adreßverwaltung Adrescomp Plus nutzen, 
die vom gleichen Anbieter kommt. 


Weniger gefallen hat mir das etwas langatmige 


Initialisierungsverfahren (Zeichensatz, Zeilen- 
länge festlegen usw.) nach jedem Programm- 
start und die unübliche Belegung der <CLR> 
Taste (Zurück zum Menue).Daß man die 
Leerstellen beim Textbildschirm mit Punkten 
auffüll, mag vielleicht noch eine Ge- 
schmacksfrage sein. Vermissen wird man aber 
in jedem Fall Formatiermöglichkeiten des 
geschriebenen Textes am Bildschirm. Mehr als 
80 Zeichen können auch nicht dargestellt 
werden (Zeilenlänge im Text nicht mehr 
variierbar). Bei der langsamen Cursorbewe- 
gung am Schirm (ist eher der Programmier- 
sprache anzulasten) wird das aber sicher 
niemand bedauern. 


Fazit: Eine vielseitige, liebevoll gemachte und 
anwenderfreundliche Textverarbeitung der 
Mittelklasse für den Homebereich. 


2. Textman 


(Berger, Paderborn) 


"Load and write!" heißt die Devise bei Text- 
man.Ganz ohne Handbuchstudien geht es bei 
der Arbeit dann aber doch nicht, obwohl man 
sicher nach einigen Stunden mit der Handha- 
bung des Programms vertraut sein kann. 


Die Qualitäten dieser Textverarbeitung liegen 
ganz sicher in der eigentlichen Textverarbei- 
tung, die man nach der Initialisierung (z.B. 
Einrichtung eines 5.5 K großen Druckerpuf- 
fers per Tastendruck) über das Hauptmenue 
anwählt. Die Texteingabe geht für ein Basic- 
programm dank einiger MC Routinen erstaun- 
lich flott und an Editiermöglichkeiten und 
Blockoperationen ist von Einfügen (CRTL+E) 
bis Trennen (!) (CTRL+1) alles vorhanden, 
was ein Anwender sich wünscht. Alle Steuer- 
befehle werden - wie auch bei anderen 
Programmen - über CTRL-Befehle angespro- 
chen.Das Schreibfeld ist durch eine dünne 
Umrandung gekennzeichnet, die man bei der 
Texteingabe als optische Hilfe schnell zu 
schätzen weiß. Speichern und Laden von Tex- 
ten, einfache Druckeranpassung, blockweises 
Abspeichern, Diskettenmanagement etc. ge- 


hören gleichfalls zum Angebot von Textman 
wie auch ein ausreichend informatives Hand- 
buch (EDV Papier). Leider werden auch in 
diesem Textprogramm nur max. 80 Zeichen/ 
Zeile dargestellt und die Formatiermöglich- 
keiten am Schirm beschränken sich auf ein 
"Im Blocksatz ansehen". Die Auswahl der 
Ausdruckmöglichkeiten (Schriftarten etc.) ist 


auf das Notwendige (NLQ, Fett, Normal) ab- 
gestellt und eine Schnittstelle zur Daten- 
verwaltung fehlt gänzlich. Den "Nur-Schrei- 
ber" wird es nicht stören. Den Vorspann und 
die Menuedarstellung auf dem Bildschirm 
sollte der Anbieter aber doch etwas professio- 
neller aufmachen, denn niemand gibt gerne 
sein Geld für Software aus, die zumindest 
stellenweise wie "selbstgestrickt" aussieht (auch 
wenn sie es nicht ist). 


Fazit: Ein ordentlich gemachtes Programm mit 
unbestreitbaren Stärken in der Textverarbei- 
tung. 


3. Easytext 4.1 


(Computronic GmbH, Seelbach) 


Easytext ist eine sehr umfangreiche, vielseitige 
Textverarbeitung, die außerdem noch bis zu 
250 Adressen verwalten kann. Die Adreßver- 
waltung arbeitet auch unabhängig vom Text- 
programm. Easytext überrascht durch ausge- 
zeichnete Textgestaltungsmöglichkeiten, die 
neben Suchen, Ersetzen, Trennen, diversen 
Blockoperationen (Verschieben, Kopieren) 
auch die schon oft vermißten Formatiermög- 
lichkeiten (links-, rechts- bündig, zentrieren) 
am Bildschirm ermöglichen. Alle Funktionen 
werden über die schon bekannten CTRL Se- 
quenzen angesprochen. Endlich einmal liegt 
dem Handbuch eine stabile Karte mit den 
nutzbaren Befehlen bei, die ihren Platz schnell 
neben dem Keyboard findet. Zusätzlich läßt 
sich aber auch noch ein Hilfsbildschirm 
während des Programmdurchlaufs einblenden. 
Der Anwender wird es zu danken wissen. 


Schriftarten setzen im Text, geschieht 
ebenfalls über die besagten CRTL Befehle. 
Selbst mitten im Text kann z.B. Fettdruck 
geschaltet werden.Die Funktionstasten sind 


zusätzlich mit Steuerfunktionen belegt .F3 z.B. 
sorgt für das Druckmenue, F8 lädt ein Text- 
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file, F6 zeigt den Disketteninhalt an u.a. mehr. 


Schon selbstverständlicher ist da ein Full- 
Screen-Editor, vielseitige Cursorbewegungen, 
Blättern im Text usw . Der Textbildschirm ist 
im übrigen sehr übersichtlich gehalten. Alle 
notwendigen Programm-Meldungen findet 
man in der untersten Bildschirmzeile .An 
guten Ideen mangelt es außerdem auch nicht. 
Das auf Wunsch einblendbare Adreßfenster 
(Briefkopf!) und das Initialisierungsmenue, das 
zum Programmstart alle vorgenommenen 
Grundeinstellungen zeigt, belegen dies. Ein 
paar Wermutstropfen gibt es allerdings auch: 
nur 80 Zeichen/Zeile, kleiner Textspeicher 
(ca.2 DIN A4 Seiten), kleinere Wartezeiten im 
Einfügemodus und ein häufiges Nachladen 
von Programmteilen z.B. zum Formatieren, für 
den Druck, zum Hilfsbildschirm etc. 


Fazit: Es wird viel geboten fürs Geld, wenn 
auch zu Lasten des Geschwindigkeitskomforts. 
Für den Heimanwender empfehlenswert insbe- 
sondere in Verbindung mit der Datenverwal- 
tung "easydata". 


4. Hometext 


(GfmS, Wolfratshausen) 


Man stelle sich eine Textverarbeitung vor, die 
die Qualitäten von Phase 4, die Einfachheit 
der Handhabung von Textking und den Text- 
speicher von Tasword D in sich vereint und 
das zu einem Preis, der noch unter 70 DM 
liegt. Schwer zu glauben, wenn man Hometext 
noch nicht gesehen hat. Hinter dem unschein- 
baren Programmnamen verbirgt sich eine 
hochkarätige CP/M (!) Textverarbeitung, die 
selbst anspruchsvolle Anwender (wenn man 
einmal von der fehlenden Trennhilfe absieht) 
zufriedenstellen muß. 


Die Tastaturbelegung kann wahlweise in DIN 
oder ASCII erfolgen (Umschalten durch CTRL 
Sequenz jederzeit möglich). Alle Kommandos 
(und das ist Spitze !) können entweder über 
leicht zu merkend CTRL Kommandos 
(Schnelligkeit) oder über die in der Meldezeile 
(unterer Bildschirmrand) erscheinenden Be- 
fehlsmenues aufgerufen werden.Im Text su- 
“chen, weitersuchen oder austauschen, Forma- 
tierfunktionen (Geschwindigkeit!) frei wähl- 


bare Ränder und Tabpositionen sind selbstver- 
ständlich vorhanden. Textzeilen können bis zu 
250 Zeichen lang sein (horizontales Scrol- 
len).Diverse Sonder- und Systemfunktionen 
wie Markierungen setzen und anspringen, Zei- 
len ausmitteln, Wörter zählen, Register er- 
stellen (mitgeliefertes Programm REGISTER), 
verschiedene Diskettenoperationen stehen dem 
Benutzer außerdem noch zur Verfügung. Das 
mitgelieferte Installationsprogramm erleichtert 
die Anpassung an fast jeden Drucker. Unter- 
stützt werden 8 verschiedene Schrifttypen. Das 
gut gemachte Handbuch steht dem Programm 
in nichts nach. Um wunschlos glücklich zu 
sein, würde mir nur noch eine Trennoption 
fehlen. Vielleicht kann man von Anbieterseite 
diese Ergänzung noch vornehmen. Eine pas- 
sende Dateiverwaltung (Schnittstelle vorhan- 
den) steht jedenfalls kurz vor der Auslie- 
ferung. 


Fazit: Ein schnelles Assemblerprogramm, das 
nur wärmstens empfohlen werden kann. 


5. Startexter 


(Sybex, Düsseldorf) 


Nachdem Startexter auf dem doch scheinbar 
ausgereizten Softwaremarkt des Commodore 
64 für einige Aufregung sorgte, durfte man 
gespannt sein, ob die Schneider Version die 
gleichen Erwartungen erfüllen konnte. Um es 
vorwegzunehmen:Wenn man von den etwas 
mageren 80 Z/Zeile einmal absieht, fällt es 
schwer an diesem Programm noch Verbesse- 
rungen vornehmen zu wollen. 


Startexter läuft als Maschinenprogramm (100 
%) unter Amsdos und ist weit mehr (da muß 
man dem Anbieter recht geben) als "nur" eine 
komfortable und umfangreiche Textverarbei- 
tung. Sie ist ein kompletter, (Lehrbuch + 
Software) exzellent gemachter Textverarbei- 
tungskurs, der selbst professionellen Systemen 
- wenn man einmal die Hardwarekonfigura- 
tion außer acht läßt -kaum in seiner Lei- 
stungsfähigkeit nachsteht, im Gegensatz zu 
den "Profis" aber erheblich einfacher zu 
bedienen ist . Angefangen bei der wirklich 
narrensicheren Druckerinstallation (Wo ist der 
Drucker, der nicht anpaßbar ist?) bis hin zum 
Zweispaltensatz bietet das Programm alles, was 
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Textverarbeitung bequem und einfach macht. 
Frei definierbare Graphikzeichen, Mischen 
von Graphik und Text, Layoutanzeige am 
Schirm und wahlweise unterschiedliche Tas- 
taturbelegung sind zudem nicht gerade all- 
tägliche Optionen, die die Qualität dieses 
Programms ausmachen. Der Konkurrenz, so 
meine ich, wird hier mit einem preiwerten 
Programmpaket einmal gezeigt, w a s man 
machen kann, wenn man kann. 


Fazit: Ein professionell gemachtes Programm- 
paket, das den Ansprüchen an eine leistungs- 
fähige Textverarbeitung voll gerecht wird. 


Wordhang gratis 


Hoffentlich habt Ihr die Demonstrations- 
kassette noch nicht auf den Müll geworfen. 
Das Wordhang-Demo beinhaltet nämlich das 
gesamte Originalspiel mit einigen Zusätzen 
und dies wollen wir ausnutzen. Dazu macht 
bitte folgendes: 


1. Reset auslösen (CTRL+Shift+ESC). 


2. Zweite Seite der Cassette bis ca. 47 
vorspulen. 


3. POKE &AC02,144 + 
POKE &AC03,192 + 
POKE &AC01,195 

nacheinander eingeben. 


4. LOAD "WELCOME 4" 


5. Eintippen: 
29000 RETURN 
16030 RETURN 
30 GOSUB 31310 


6. Jetzt könnt Ihr eigene Data-Zeilen 
eingeben (von Zeile 1600 bis 1999), 
z.B.: 1600 LDATA joystick, freak, 
adventure, usw. 


7. Programm auf andere Kassette saven. 


8. Mit RUN starten. 


Informationen 


Textking (98 DM): Van der Zalm Software, 2949 
Wangerland 3 Tel: 04461/5524 


Textman (98 DM) : Data Berger, 4790 Paderborn Tel: 
05251/64 852 


Easytext (98 DM) : Computronic GmbH, 5804 Seelbach 
Tel: 02604/5545 


Hometext (69 DM): Gesellschaft für Modulare Software 
8190 Wolfratshausen Tel.:08171/26191 


Startexter(85 DM): Sybex Verlag, 4000 Düsseldorf Tel: . 


0211/61802-0 
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Das Programm kann auch zwischendurch 
unterbrochen werden. 


Around the clock 


Wozu dient eigentlich das EVERY-Komman- 
do? Man benötigt es um damit Unterpro- 
gramme in gleichmäßigen Zeitabständen 
aufzurufen. So ist es sehr einfach eine Uhr zu 
programmieren während ein anderes 
Programm läuft. 


Das letzte Wort! 

Es soll noch Leute geben, die streiten sich um 
die kürzeste Ja/Nein Abfrage. Aber nur ich 
habe sie. Wer eine Kürzere findet, lasse es 


mich wissen. 


10 IF INKEY$"j" THEN 20 ELSE If 
INKEY$"n" THEN 30 ELSE 10 


COMPUTERSCHRIFT: 


In dem Listing fehlt das Zeichen für 'z'. Es kann 
ergänzt werden, wenn folgende Zeile eingegeben wird: 


SYMBOL 90,127,102,108,24,55,103,127,0 REM Z 


(Andreas Müller) 
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Als Basic-Programmierer kennen Sie sicherlich 
folgendes Problem: Sie brauchen Steuerzeichen 
in PRINT-Anweisungen, wollten aber nicht 
das umständliche CHR$() benutzen. Deshalb 
verwendeten Sie die CTRL erreichbaren Sym- 
bole, die beim AusLISTen aber den Drucker 
O durcheinander bringen, und auf dem Bild- 
schirm sowieso schlecht zu identifizieren sind. 


Hier schafft CLEAR-LIST Abhilfe: Es er- 
oO kennt die in Anführungszeichen stehenden 
I 


Initialisierung, 
in PRINT-Anweisungen, 
C(invers), 
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zu <X>. 


11 ’'natuerlich unangetastet. 


100 MEMORY &A4FF 
sum=sum+ta:POKE i,a:NEXT 


130 CALL &ASO00: NEW 
21,F2,07 
CB,BE,3A 
3C,DF,BE 
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CLEAR-LIST. 


CLEAR-LIST by Thomas Luft CC)I198B6 


Dieses Programm bewirkt nach der 

dass Steuerzeichen 
wie z.B. CTRL+X 
beim LISTen auf Bildschirm 
oder Drucker als lesbare Zeichen aus- 
gegeben werden. So wird z.B. CTRL+X 


’Der Speicherinhalt bleibt dabei 


110 RESTORE 140:FOR i-42240 TOD 42385:READ a$:a=UALC”&”+a$): 
120 IF sum<>16640 THEN PRINT”Data-Fehler”:END 


140 DATA 3E,C3,32,2B,BD,32,5A,BB,21,1E,AS,22,2C,BD,21,2E,#s, 
22,5B,BB,3E,FF,32,24,AC,AF,32,0F,AC,C9,ES,21,F2,87,22,8C,#s, 


150 DATA 22,8E,AS,E1,18,0E,ES,21,00,34,22,8C,45,21,00,14,22, 
BE,AS,E1,ES,FS,21,0F,AC,FE,01,28,40,FE,0D,20,13,CB,4E,28,09, 


160 DATA BC,AS,FE,F2,28,2F,CB,86,CB,BE,18,2D,FE,22,20,06,7£, 
EE,01,77,18,23,CB,46,28,1F,FE,20,30,1B,FE,0A,20,02,CB,CE,3E, 


170 DATA AS,F1,FS,F6,40,DF,8E,AS,3E,3E,DF,8E,A5,F1,37,E1,C09, 
F1,E1,CF,00,00,00,00,FC,00,00,00,00,00,00,00,00,00,00,00,00, 


Steuercodes und gibt statt ihnen, gekenn- 
zeichnet durch "<>", die Taste aus, durch die) 
sie erzeugt wurden! So wird z.B. aus CTRL+X 


<X>. ©) 


Übrigens wird WIDTH automatisch auf 255 
(FFhex in erster DATA-Zeile) gesetzt, damit 
es zu keinen Komplikationen durch die länger 
werdenden Zeilen kommt. 


(Thomas Luft) 
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VERHALTENSPROFILE 


Basierend auf die Persönlichkeitsstrukturen jedes Menschen: 


a) Eltern-Ich-Zustand 
b) Erwachsenen-Ich-Zustand 
c) Kindheits-Ich-Zustand 


wurden 190 Aussagen zusammengestellt. Diese 190 Aussagen soll der Anwender 
. bewerten, und zwar lediglich nach den Kriterien: 


1 
2 


Zustimmung 
Ablehnung 


Also keine Wertung der Aussagen auf richtig oder falsch. 


Zuerst wird der Anwender gefragt, wieviel Personen teilnehmen wollen. 
Danach werden die Namen der Teilnehmer gefordert, Jetzt gibt der Computer 
nacheinander die 190 Aussagen aus, die zu bewerten sind. 

Nach Beendigung der Aussagenausgabe errechnet der Computer das persönliche 
Verhaltensprofil. 

Dieses Profil zeigt er an Hand einer Grafik an und erläutert diese gleichzeitig im 
Textfenster. 

Danach ist es möglich das Verhaltensprofil auszudrucken. 

Direkt zu Beginn des Programms können die 190 Aussagen in Form eines Fragebogens 
auf den Drucker gegeben werden. 

Tippfehler in dem Berechnungsteil Zeilennummer 360-1380 sind unbedingt zu 
vermeiden, da sonst ein falsches Profil errechnet wird. 

Ich wünsche auch Ihnen ein gutes Verhaltensprofil. 


“%(Reinhard Bitter ) RENNER N NEN NENNE NENNEN EEE EEE EEE EEE EEE EEE EEE EEE EBENEN E 36 - OO 24 HERE 


10 MODE 0:LOCATE 2,12:PRINT"Verhaltensprofile":LOCATE 2,13:PRINT STRING$(17,45) 
20 FOR i=1 TO 2000:NEXT i 

30 MODE 1:LOCATE 12,2:PRINT"Verhaltensprofile":LOCATE 12,3:PRINT STRING$(17,45) 
40 PRINT:PRINT 

50 PRINT"In diesem Programm werden Sie mit 190 Aussagen konfrontiert. Sie mues 
sen sich bei jeder Aussage entscheiden:" 


60 PRINT:PRINT" 1=Zustimmung 2=Ablehnung" 
70 PRINT:PRINT"Nach Beendigung aller Aussagen errechnetder Computer Ihr persoenl 
iches Ver- haltensprofil und stellt dies an Hand" 


80 PRINT"einer Grafik dar. Danach erhalten Sie die Erklaerung zu Ihrem Profil. 
Diese koennen Sie sich auch auf einen Drucker ausgeben lassen." 

90 LOCATE 1,23:PRINT" Programmiert von Reinhard Bitter" 

100 PRINT:LOCATE 10,25:PRINT"Weiter bitte eine Taste" 

110 a$=INKEY$:IF a$="" THEN 110 

120 MODE 1:LOCATE 1,12:PRINT"Ich lese die Daten ein, bitte warten...." 
130 DIM v$(190),an(50),p(50),a(50),c(50),pp(50),ab(50),cc(50),na$(50) 
140 RESTORE 2210 

150 FOR i=1 TO 190 

160 READ v$(i) 

170 NEXT i 

180 MODE 1:LOCATE 8,10:PRINT"1 - Start der Aussagen":LOCATE 8,12:PRINT"2 - druck 

en der Aussagen" 

190 LOCATE 8,15:PRINT"Bitte waehlen Sie" 

200 a$=INKEY$:IF a$="" THEN 200 

210 IF a$="1" THEN 240 

220 IF a$="2" THEN 4110 

230 GOTO 200 

240 MODE 1:LOCATE 3,12:PRINT"Wieviel Personen wollen teilnehmen ?" 

250 LOCATE 20,14:INPUT an 

260 FOR i=1 TO an 


270 MODE 1:LOCATE 5,12:PRINT"Bitte den Namen der";i;". Person" 
280 LOCATE 5,14:INPUT na$(i) 
290 NEXT i 


300 MODE 1::aa=1 
310 FOR aa=1 TO an 
320 FOR i=1 TO 190 
330 MODE 1 
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VERHALTENSPROFILE 


Nicht vergessen ... 


... SCHNEIDER-aktiv erscheint immer 


am letzten Mittwoch im Monat 


LOCATE 11,6:PRINT na$(aa):LOCATE 11,8:PRINT"Aussage Nr.";i 
350 LOCATE 1,10:PRINT v$(i) 

360 LOCATE 3,24:PRINT"1 - Zustimmung 2 - Ablehnung" 

370 a$=INKEY$:IF a$="" THEN 370 

380 IF a$="1" THEN 440 

390 IF a$="2" THEN 410 

400 GOTO 370 

410 NEXT i 

420 NEXT aa 

425 CLEAR INPUT 

430 GOTO 540 

440 IF i=1 OR i=5 OR i=7 OR i=11 OR i=12 OR i=16 OR i=20 OR i=22 OR i=25 OR i=25 
OR i=31 OR i=32 OR i=33 OR i=35 OR i=36 OR i=37 OR i=39 OR i=40 OR i=45 OR i=47 
OR i=49 OR i=51 THEN p(aa)=p(aa)+1:GOTO 410 


1 
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450 IF i=53 OR i=54 OR i=56 OR i=57 OR i=59 OR i=64 OR i=65 OR i=67 OR i=68 OR i 
l 
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j 
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=72 OR i=73 OR i=74 OR i=75 OR i=77 OR i=85 OR i=88 OR i=95 OR i=97 OR i=101 OR 
i=102 OR i=104 OR i=106 OR i=108 THEN p(aa)=p(aa)+1:GOTO 410 

460 IF i=117 OR i=119 OR i=120 OR i=121 OR i=125 OR i=128 OR i=132 OR i=134 ORi 
=137 OR i=139 OR i=141 OR i=144 OR i=145 OR i=149 OR i=155 OR i=165 OR i=179 OR 
i=183 OR i=188 THEN p(aa)=p(aa)+1:GOTO 410 

470 IF i=3 OR i=8 OR i=9 OR i=13 OR i=15 OR i=17 OR i=18 OR i=19 OR i=21 OR i=23 
OR i=29 OR i=41 OR i=42 OR i=43 OR i=46 OR i=50 OR i=55 OR i=58 OR i=62 OR i=66 
OR i=70 OR i=79 OR i=83 OR i=89 THEN a(aa)=a(aa)+1:GOTO 410 

480 IF i=93 OR i=100 OR i=105 OR i=110 OR i=111 OR i=113 OR i=123 OR i=130 OR i= 
133 OR i=136 OR i=138 OR i=140 OR i=142 OR i=146 OR i=152 OR i=159 OR i=161 OR i 
=164 OR i=166 OR i=167 THEN a(aa)=a(aa)+1:GOTO 410 

490 IF i=168 OR i=169 OR i=171 OR i=174 OR i=175 OR i=176 OR i=184 OR i=185 OR i 
=189 OR i=190 THEN a(aa)=a(aa)+1:GOTO 410 

500 IF i=27 OR i=52 OR i=92 OR i=126 OR i=153 OR i=156 OR i=162 THEN p(aa)=p(aa) 
+0.5:GOTO 410 

510 IF i=4 OR i=87 OR i=107 OR i=116 OR i=154 OR i=170 THEN a(aa)=a(aa)+0.5:G0TO 
410 

520 IF i=71 OR i=118 OR i=131 OR i=135 OR i=180 THEN c(aa)=c(aa)+0.5:G0TO 410 
530 c(aa)=c(aa)+1:GOTO 410 

540 MODE 1:LOCATE 7,12:PRINT"Ich rechne,bitte warten.....":f=0 

550 FOR aa=1 TO an 

560 FOR i=1 TO 66.5 STEP 0.5 

570 IF i<=17 THEN f=f+0.29:GOTO 650 

580 IF i>17 AND i<=19 THEN f=f+2.5:G0TO 650 

590 IF i>19 AND i<=28 THEN f=f+1.67:G0OTO 650 

600 IF i>28 AND i<=33 THEN f=f+1:GOTO 650 

610 IF i>33 AND i<=35 THEN f=f+2.5:GOTO 650 

620 IF i>35 AND i<=42 THEN f=f+0.71:GOTO 650 

630 IF i>42 AND i<=54 THEN f=f+0.42:GOTO 650 

640 IF i>54 THEN f=f+0.4 

650 IF p(aa)=i THEN pp(aa)=f:GOTO 670 

660 NEXT i 

670 f=0 

680 NEXT aa 

690 FOR aa=1 TO an 

700 FOR i=1 TO 57 STEP 0.5 

710 IF i<=24 THEN f=f+0.21:GOTO 780 

720 IF i»>24 AND i<=28 THEN f=f+1.25:G0TO 780 

IF i>28 AND i<=30 THEN f=f+2.5:GOTO 780 
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i>30 AND i<=42 THEN f=f+1.67:G0TO 780 
i>42 AND i<=44 THEN f=f+2.5:G0TO 780 
i>44 AND i<=51 THEN f=f+0.71:G0TO 780 
i>51 THEN f=f+0.83 

a(aa)=i THEN ab(aa)=f:GOTO 800 

NEXT i 

f=0 

NEXT aa 

FOR aa=1 TO an 

FOR i=1 TO 57.5 STEP 0.5 

IF i<=18 THEN f=f+0.28:G0TO 920 

IF i>18 AND i<=22 THEN f=f+1.25:G0OTO 920 
IF i>22 AND i<=26 THEN f=f+2.5:G0TO 920 
IF i>26 AND i<=27 THEN f=f+5:G0OTO 920 

IF i>27 AND i<=29 THEN f=f+2.5:G0TO 920 
IF i>29 AND i<=33 THEN f=f+1.25:G0TO 920 
IF i>33 AND i<=39 THEN f=f+1.67:G0TO 920 
IF i>39 THEN f=f+0.27 

IF c(aa)=i THEN cc(aa)=f:GOTO 940 

NEXT i 

f=0 

NEXT aa 

FOR aa=1 TO an 

p(aa)=0:a(aa)=0:c(aa)=0 

NEXT aa 

FOR aa=1 TO an 


p(aa)=INT((pp(aa)+0.05)*2/10):a(aa)=INT((ab(aa)+0.05)*2/10):c(aa)=INT((cc(a 
.05)%32/10) 

NEXT aa 

MODE 2:WINDOW #1,31,80,4,25:PAPER #1,1:PEN #1,0 


B$="Eltern-Ich":c$="Erwachsenen-Ich":d$="Kindheits-Ich" 


LOCATE 31,1:PRINT"Ihr Verhaltensprofil":LOCATE 31,2:PRINT STRING$(20,45) 


LOCATE 3,4: PRINT"P-Ich A-Ich C-Ich" 
iisl 
FOR i=6 TO 21 


LOCATE 1,i:PRINT MID$(b$,ii,1):LOCATE 11,i:PRINT MID$(c$,ii,1):LOCATE 21,i: 


PRINT MID$(d$,ii,l) 


1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 


iisiitl 

NEXT i 

FOR aa=1 TO an 

pt=25-p(aa):at=25-a(aa):ct=25-c(aa) 

WINDOW #2,4,6,pt,25:PAPER #2,1 

WINDOW #3,14,16,at,25:PAPER #3,1 

WINDOW #4,24,26,ct,25:PAPER #4,1 

CLS #2:CLS #3:CLS #4:CLS #1 

PRINT #1,na$(aa):PRINT #1 

GOSUB 1320 

PRINT #1:PRINT #1,"Weiter bitter eine Taste" 
a$=INKEY$:IF a$="" THEN 1200 

CLEAR INPUT 

MODE 2:LOCATE 10,10:PRINT"1 - Verhaltensprofil drucken" 
LOCATE 10,12:PRINT"2 - weiter":LOCATE 10,15:PRINT"Bitte waehlen Sie" 
a$=INKEY$:IF a$="" THEN 1240 

IF a$="1" THEN t=8:GOSUB 1330 


IF a$="2" THEN 1280 

GOTO 1240 

NEXT aa 

MODE 0:LOCATE 7,12:PRINT"E N D E" 


FOR i=1 TO 2000:NEXT i 

END 

t=1 

IF ab(aa)>pp(aa) AND cc(aa)>pp(aa) THEN 1390 


IF pp(aa)>cc(aa) AND ab(aa)>cc(aa) THEN 1540 
IF ab(aa)>pp(aa) AND ab(aa)>cc(aa) THEN 1670 
IF pp(aa)>ab(aa) AND cc(aa)>ab(aa) THEN 1790 
IF cc(aa)>pp(aa) AND cc(aa)>ab(aa) THEN 1910 


IF pp(aa)>ab(aa) AND pp(aa)>cc(aa) THEN 2050 

PRINT #t," Geringes P-Ich Hohes A-Ich Hohes C-Ich " 
PRINT #t," __-------------------------- 2222222 x 
PRINT #t,"Wohl die produktivste Kombination. Der Charme des" 


PRINT #t,"O.K.-C-Ichs bringt Herzlichkeit, Intuition, und" 

PRINT #t,"Kreativitaet ein und verbindet sich mit einem" 

PRINT #t,"starken A-Ich. Wenn strafendes P-Ich kaum vorkommt" 
PRINT #t,"und Wertvorstellungen im A-Ich gruenden ist der" 

PRINT #t,"Weg frei fuer Vernunft." 

PRINT #t:PRINT #t 

PRINT #t,"Ihr P-Wert:";CINT(pp(aa));"% (Eltern-Ich-Zustand)" 
PRINT #t 

PRINT #t,"Ihr A-Wert:";CINT(ab(aa));"% (Erwachsenen-Ich-Zustand)" 
PRINT #t " 
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PRINT #t,"Ihr C-Wert:";CINT(cc(aa));"% (Kindheits-Ich-Zustand)" 

RETURN 

PRINT Hohes P-Ich Hohes a-Ich Geringes C-Ich 

PRINT 

PRINT #t,"Leichter Wechsel zwischen P und A-Ich moeglich." 

PRINT #t,"Stark Leistungsorientiert. Der Verstand wird von" 

PRINT #t,"Forderungen des P-Ich beherrscht. Erfahrungen und" 

PRINT #t,"Erziehung sind Grundlagen fuer den Erfolg. Ent-" 

PRINT #t,"scheidend ist haeufig, ob zwischen der eigenen" 

PRINT #t,"Meinung und Tatsachen unterschieden werden kann." 

PRINT #t:PRINT #t 

PRINT #t,"Ihr P-Wert:";CINT(pp(aa));"% (Eltern-Ich-Zustand)":PRINT #t 

PRINT #t,"Ihr A-Wert:";CINT(ab(aa));"% (Erwachsenen-Ich-Zustand)":PRINT #t 

PRINT #t,"Ihr C-Wert:";CINT(cc(aa));"% (Kindheits-Ich-Zustand)" 

RETURN 

PRINT P-Ich Hohes A-Ich Geringes C-Ich hi 

PRINT je 

PRINT ‚"Diesen Menschen begegnet man nicht haeufig. Er" 

PRINT #t,"ist sach- und tatsachenorientiert. Sein Verhalten" 

PRINT #t,"duerfte sich haeufig wiederholen und langweilig" 

PRINT #t,"sein. Seine Beziehungen sind steril und lang-" 

PRINT #t,"weilig und ohne Gefuehl. Er hat Schwierigkeiten" 

PRINT #t,"bei der Zusammenarbeit mit anderen.":PRINT #t:PRINT #t 

PRINT P-Wert:";CINT(pp(aa));"% (Eltern-Ich-Zustand)":PRINT #t 

PRINT i A-Wert:";CINT(ab(aa));"% (Erwachsenen-Ich-Zustand)":PRINT #t 

PRINT C-Wert:";CINT(cc(aa));"% (Kindheits-Ich-Zustand)" 

RETURN 

PRINT Hohes P-Ich Geringes A-Ich Hohes C-Ich ” 

PRINT ’ " 

PRINT ‚"Mit diesen Menschen laesst sich schwer zusammen-" 

PRINT #t,"abeiten. Er ist fleissig. Er ist heute mora-" 

PRINT #t,"listisch, wertend und autoritaer und moechte mor-' 

PRINT #t,"gen geliebt, beklatscht und umhegt werden. Wegen" 

PRINT #t,"seiner Hass-Liebe ist es schwer, mit ihm zusam-" 

PRINT #t,"menzuarbeiten.":PRINT #t:PRINT #t 

PRINT #t,"Ihr P-Wert:";CINT(pp(aa));"% (Eltern-Ich-Zustand)":PRINT #t 

PRINT #t,"Ihr A-Wert:";CINT(ab(aa));"% (Erwachsenen-Ich-Zustand)":PRINT #t 

PRINT #t,"Ihr C-Wert:";CINT(cc(aa));"% (Kindheits-Ich-Zustand)" 

RETURN . 

PRINT Geringes P-Ich Geringes A-Ich Hohes C-Ich ” 

PRINT 

PRINT #t,"Eine vom C-Ich bestimmte Person kann ausser-" 

PRINT #t,"ordentlich anziehend sein. Solche Menschen blue-" 

PRINT #t,"hen in verkaeufertaetigkeiten oder in Organisa-" 

PRINT #t,"tionen, in denen es auf persoenlichen Charme und" 

PRINT #t,"auf Intuition ankommt. Nicht gut geeignet fuers" 

PRINT #t,"Management. Er trifft seine Entscheidungen im " 

PRINT #t,"C-Ich und sie sind oft von der Phantasie ver-" 

PRINT #t,"zerrt.":PRINT #t:PRINT #t 

PRINT #t,"Ihr P-Wert:";CINT(pp(aa));"% (Eltern-Ich-Zustand)":PRINT #t. 

PRINT #t,"Ihr A-Wert:";CINT(ab(aa));"% (Erwachsenen-Ich-Zustand)":PRINT #t 

PRINT #t,"Ihr C-Wert:";CINT(cc(aa));"% (Kindheits-Ich-Zustand)" 

RETURN 

PRINT #t," Hohes P-Ich Geringes A-Ich Geringes C-Ich ” 

PRINT #t," I 

PRINT #t,"Dieses Profil kommt haeufig in Organisationen vör," 

PRINT #t,"die nach dem Motto verfahren: ’Das haben wir schon" 

PRINT #t,"immer so gemacht.’ Der Vorgesetzte foerdert Un-"” 

PRINT #t,"selbstaendigkeit, weil er seine Mitarbeiter wie" 

PRINT #t,"Kinder behandelt. Er ist autoritaer und glaubt aas 

PRINT #t,"die ’Menschen keine Verantwortung wollen’ und dass" 

PRINT #t,"sie ’nur arbeiten, um fuer ihre Freizeit Geld zur" 

PRINT #t,"Verfuegung zu haben’. Heute ist dieses Profil" 

PRINT #t,"hoffnungslos veraltet." 

PRINT #t: PRINT #t 

PRINT #t,"Ihr P-Wert:";CINT(pp(aa));"% (Eltern-Ich-Zustand)":PRINT #t 

PRINT #t,"Ihr A-Wert:";CINT(ab(aa));"% (Erwachsenen-Ich-Zustand)":PRINT #t 

PRINT #t,"Ihr C-Wert:";CINT(cc(aa));"% (Kindheits-Ich-Zustand)":PRINT #t 

RETURN 

DATA "In der Industrie muss man konkurrenz- faehig sein, wenn man Erfolg 
haben will." 
2220 DATA "Ich kann nicht gut Witze erzaehlen." 
2230 DATA "Ich habe gelernt,aufgeschlossen zu sein,mich mit meinem Koerper und G 
eschlecht wohlzufuehlen und keine Angst vor In- timitaet zu haben." 

DATA "Manchmal fuehle ich mich einsam und weitweg von allen anderen Mensche 


DATA "Ich kritisiere gern und schiebe die Schuld oft auf andere." 
DATA "Es faellt mir schwer,meine Diaet zu hal-ten,mir das Rauchen abzugewoe 


USW... 
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2270 DATA "Streitkraefte lassen sich nur mit strengster Disziplin fuehren. 
Wenn es hart auf hart geht,wird man an der Dis- ziplin die erwachsenen Maenne 
r von den weichen Knaben unterscheiden koennen." 

2280 DATA "Wenn religioese Glaubenssaetze meiner Vernunft zuwiderlaufen, folge 


ich lieber meinen eigenen Ideen." 

2290 DATA "Ich habe wohl mehr Interessen und Hob- bies als die meisten meiner M 
itmenschen." 

2300 DATA "Ich scheine mehr Freunde zu haben als andere." 

2310 DATA "Es gibt zwei Arten von Menschen - die einen machen das Problem noch 
groesser, die anderen tragen zu seiner Loesung bei" 

2320 DATA "Die Gesellschaft waere sicherlich besserbedient,wenn die Menschen nac 
h der Regelder ’Goldenen Mitte’ leben wuerden." 


2330 DATA "Meine Eltern gingen regelmaessig zur Kirche,haben mir aber keine V 
orwuerfe gemacht,als ich meine Entscheidung traf." 
2340 DATA "Mir wird oft gesagt,dass ich zu viel Fremdwoerter benutze." 


2350 DATA "Meine Eltern haben mich dazu ermuntert ein ’kritisches Urteilsvermoe 
gen’ zu entwickeln." 

2360 DATA "Ich fahre oefter aus der Haut als mir lieb ist. Hinterher tut es mi 
r immer leid." 

2370 DATA "Ich erprobe gern neue Ansaetze." 

2380 DATA "Meine Eltern haben dem Vaterland ge- dient. Ich finde das in manch 
er Hinsichtgut,in anderer Hinsicht nicht." 

2390 DATA "Haeufig wenden sich andere an mich um Rat und Beratung." 

2400 DATA "Ich kann andere gut herabsetzen,besser als mir lieb ist." 


2410 DATA "Meine Eltern haben mich gelehrt,die Ideen anderer zu akzeptieren, 
auch dann, wenn ich anderer Meinung bin." 
2420 DATA "Es ist Unsinn,wenn man behauptet,dass meine Persoenlichkeit schon g 


eformt war,als ich sechs Jahre alt wurde." 

2430 DATA "Meine Eltern haben mich immer dazu er- muntert,meine Gedanken offen 
auszu- sprechen. Ich brauche keine Angst zu ha-ben,laecherlich gemacht zu we 
rden." 

2440 DATA "Meiner Meinung nach sind Gefuehle sehr viel wichtiger,als die meiste 
n Menschen annehmen." 

2450 DATA "Manchmal macht es mir Spass, jemanden beieiner Unkorrektheit zu erwisc 
hen." 


2460 DATA "Ich habe es nicht gern,wenn man mich liebt,aber manchmal geschieht 
es doch." 

2470 DATA "Offen gesagt,ich fahre gern schnell, schneller als die anderen." 
2480 DATA "Rassenvorurteile haben auch etwas Gutes.Sie verhueten Mischehen." 
2490 DATA "Manchmal kann ich mich sehr aufregen oder auch riesig freuen." 


2500 DATA "Es gibt Dinge,denen ich einfach nicht widerstehen kann." 

2510 DATA "Den meisten tut es nur gut,wenn sie zur Bundeswehr muessen." 

2520 DATA "Ich glaube,allen wuerde es besser gehen,wenn es keinen Alkohol mehr g 
aebe." 

2530 DATA "Es kommt vor,dass die Menschen unange- nehme Dinge tun muessen,weil 

es zu ihremBesten ist." 

2540 DATA "Meine Eltern haben mir mehr Lebensangst eingeimpft,als andere von ihr 
en Eltern mitbekommen haben." 

2550 DATA "Wir koennten den moralischen Verfall un-serer Gesellschaft rueckgaeng 
ig machen, wenn die Menschen wieder in die Kirche gingen." 

2560 DATA "Mein Vater bzw. meine Mutter verlor mir gegenueber oefter die Beherrs 
chung als mir lieb war." 

2570 DATA "Ich fuehle mich einfach sicherer,wenn ich fuer einen Chef arbeite,d 
er mir ein-deutige Anweisungen gibt." 

2580 DATA "Der ’Laermpegel’ bei uns zu Hause ist meistens hoeher als mir lieb 

ist." 

2590 DATA "Reicht man den Kommunisten den kleinen Finger,nehmen sie gleich die 

ganze Hand." 

2600 DATA "Mir wurde schon frueh beigebracht,dass es sich niemals lohnt,das Sys 
tem selbst anzugreifen." 

2610 DATA "Die Menschen scheinen keine Hemmungen zuhaben,mit ihren Problemen zu 

mir zu kom-men." 

2620 DATA "Meine Eltern haben den Verstand mehr be-tont als das Gefuehl." 


2630 DATA "Bei den meisten Problemen stellt ein Kompromiss die beste Loesung 
dar." 

2640 DATA "Ich gehoere zu den Menschen,denen es schwer faellt,vom Tisch aufzu 
stehen." 


2650 DATA "Familien,die miteinander beten koennen, bleiben auch zusammen." 

2660 DATA "Ich stehe der Welt mit Gleichmut gegen- ueber,nicht mit Angst,Furcht 
oder Zynis-mus." 

2670 DATA "Auf lange Sicht gesehen,gibt es nur eineMoeglichkeit: Ein Mann kann n 
ur eine Frau haben." 

2680 DATA "Die Macht der Liebe dreht die Welt." 

2690 DATA "Dies ist mein Land,ob im Recht oder im Unrecht. Was die Wissenschaft 


ler sagen, ist mir egal. Das ist die einzig ver- nuenftige Position,die ein gu 
ter Patrioteinnehmen kann." 
2700 DATA "Selbst wenn ich durch ein unbekanntes Land reise,fuehle ich mich nu 


r selten unbehaglich oder frend." 
2710 DATA "Ich verabscheue unterwuerfige ’Ja-Sager’." 
2720 DATA "Ich traeume gerne in den Tag hinein,mehrals andere." 
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2730 DATA "Wenn die Gewinne nachlassen,braucht man einen starken und eisern durc 

hgreifendenMann,um die Organisation wieder in die richtige Richtung zu drehen." 
2740 DATA "In einer schwierigen Lage ist eine falsche Entscheidung besser a 
ls gar keine." 

2750 DATA "Ich gehoere mehr Verbaenden und Vereinenan als andere,die ich kenne." 
2760 DATA "Eltern zeigen ihre Liebe zu ihren Kinderam besten,wenn sie auf streng 

e,konse- quenten Verhaltensnormen bestehen." 

2770 DATA "Irren ist menschlich,Vergeben ist goett-lich." 

2780 DATA "Fuer mich sind Traenen kein Zeichen von Schwaeche." 

2790 DATA "Meine Eltern hatten recht: Die Welt ist grausam. Je schneller man das 
begreift, desto besser." 

2800 DATA "Die meisten Menschen scheinen das Leben nicht so leicht zu nehmen wie 
ich." 

2810 DATA "Ich bin selbstbewusster als die meisten Menschen." 

2820 DATA "Meine Eltern waren aufgeschlossen. Sie konnten die Aenderungen akzep 
tieren,die sie in ihrer Umwelt wahrnahmen." 

2830 DATA "Ich gebrauche gerne Modewoerter wie ’Image-Pflege’,’Das ist in od 

er out’, 'Das ist echt gut!’ etc." 

2840 DATA "Meine Eltern haben sich nicht viel um mich gekuemmert. Ich werde es 
mit meinenKindern besser machen." 

2850 DATA "Einiges von dem,was die Kirche heute sagt,halte ich einfach fuer 1 

aecherlich." 

2860 DATA "Manchmal weine ich,ohne mich dessen zu schaemen." 

2870 DATA "Meine Eltern haben mich die Liebe zur Heimat gelehrt. Ich wuenschte 
‚ich koennte auch allen anderen einimpfen, wie wichtig das ist." 


2880 DATA "Meine Eltern legten grossen Wert auf denGlauben an Gott und sonntaegl 
ichen Kirchgang." 

2890 DATA "Ich eigne mich besser zum Gefolgsmann als zum Fuehrer." 

2900 DATA "Aus Erfahrung habe ich gelernt,dass man nicht effektiv fuehrt,wenn ma 
n die Men- schen nur kontrolliert. Effektiv fuehrenheisst anderen ermoeglichen,i 
hre eigenenStaerken zu maximieren." 

2910 DATA "Ich kleide mich sehr sorgfaeltig,meis- tens konservativ." 

2920 DATA "Ich bin gerne Chef." 

2930 DATA "Unser Land sollte ein starkes und schlagkraeftiges Verteidigung 
ssystem be-sitzen. Schliesslich will das jedes andere Land auch." 

2940 DATA "Ich bin Menschen gegenueber immer miss- trauisch." 

2950 DATA "In meiner Familie ist es nicht ueblich, Gefuehle zur Schau zu stellen 
2960 DATA "Ich lache um eine angespannte Situation zu ueberwinden." 

2970 DATA "Eines kann ich mit Bestimmheit von meinen Eltern sagen,sie hatte 
n sehr festgefuegte Vorstellungen von richtig und falsch." 

2980 DATA "Ich freue mich das ganze Jahr ueber auf meinen Urlaub." 

2990 DATA "Normalerweise denke ich erst ueber ein Problem nach und plane ein Lo 
esung, ehe ich Massnahmen ergreife." 

3000 DATA "Es gibt Dinge,die ich einfach tun muss, auch wenn ich genau weiss,das 
s es eigentlich nicht richtig ist." 

3010 DATA "Meine Eltern haben das Leben wohl nie begriffen." 

3020 DATA "Ich fuehle mich oft so beschwingt,dass ich huepfen und springen moec 
hte." 

3030 DATA "Ich glaube,dass es fuer die Gesundheit des Einzelnen und der Organis 
ation wichtig ist,seine Gefuehle ausdruecken zu koennen." 

3040 DATA "Ich denke oft: ’Mir kann so etwas nicht passieren!’" 

3050 DATA "Ich rege mich gern ueber Fuehrungs- kraefte auf,die nicht versuch 
en neue Problemloesungen zu finden oder sie zu erproben." 

3060 DATA "Wenn sich andere wohlfuehlen, fuehle auchich mich wohl." 

3070 DATA "Es ist ausserordentlich wichtig immer und ueberall ehrlich zu sein. 


3080 DATA "Ganz sicher kann man nie sein. Viel- leicht sind die USA tatsaechl 
ich das maechtigste Land der Welt,vielleicht auch nicht." 

3090 DATA "Ich weiss,dass die Faehigkeit zur Wahr- scheinlichkeitsabschaetzung f 
uer eine gute Entscheidungsbildung grundlegend ist." 

3100 DATA "Manchmal fuehle ich mich tagelang niedergeschlagen." 

3110 DATA "Ich fahre gerne schnell." 

3120 DATA "Wenn ich mich unterlegen fuehle,denke ich stets daran,welch kleines 
Raedchen ich im Weltgetriebe bin." 

3130 DATA "Meine Ideen zugunsten von Uebereinstim- mung mit dem Chef zu opfern,i 
st nicht gerade meine Vorstellung von gutem Management." 

3140 DATA "Ich bin sehr anfaellig fuer Impulsiv- kaeufe." 

3150 DATA "Schwache Menschen machen mich wuetend." 

3160 DATA "Ich scheine mich mehr als andere von Ge-fuehlen beeinflussen zu lasse 
nr 

3170 DATA "Ich moechte gerne vorwaerts kommen. Dieser Wunsch ist bei mir deu 
tlicher ausgepraegt als bei anderen." 

3180 DATA "Meine Eltern haben mich immer mit meinenFreunden (Freundinnen) ’aufge 
zogen’." 

3190 DATA "Ich fuehle mich in ungeordneten Situ- ationen nicht wohl und versuc 
he,ihnen aus dem Wege zu gehen." 

3200 DATA "Ich bleibe meistens ruhig,wenn andere aggressiv werden oder ihre Ae 
ngste zei- gen." 
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3210 DATA "Wenn Sie sich von einem anderen alles gefallen lassen,wird er sie n 
icht ach- ten." 

3220 DATA "Ich werde leicht ungeduldig,wenn ich mitunschluessigen Menschen zu tu 
n haben,diekeine Entscheidungen treffen koennen." 

3230 DATA "Ich besuche gerne Parties. Sie machen mich beschwingt." 

3240 DATA "Bei der Arbeit und in der Ehe verlasse ich mich lieber auf die erpro 


:bten Me- thoden." 

3250 DATA "Einige Menschen schliessen ungern Kom- promisse. Ich finde aber,dass 
sie die beste Grundlage fuer eine gesunde Loe- sung bieten." 

3260 DATA "Wenn ich in die Ecke gedraengt werde, kann man sich darauf verlasse 


n,dass ich mich erbittert zur Wehr setze." 


3270 DATA "Manchmal bin ich einfach nicht in der Lage,mich mit Problemen zu be 
fassen." 


3280 DATA "In Ausschussitzungen uebernehme ich gerne die Fuehrung." 

3290 DATA "Wenn andere boese werden,‚regt mich das sehr auf." 

3300 DATA "Ich glaube,dass die Menschen oefters ihre Gefuehle sprechen lassen 
sollten." 

3310 DATA "Ich druecke gerne wieder die Schulbank." 

3320 DATA "In meinem Arbeitsteam herrscht gegen- seitiges Vertrauen. Das kommt 
aus ge- teiltem Leid und geteilter Freud." 


3330 DATA "Ich akzeptiere gerne Ungewoehnliches undAussergewoehnliches,mehr als 
die meistenMitmenschen." 

3340 DATA "Ich habe auch schon gesagt: ’Ich habe die Regeln nicht gemacht. Ich 
muss mich nur daran halten’." 

3350 DATA "Ich habe immer mehr Rechnungen als ich bezahlen kann." 

3360 DATA "Den Menschen wuerde es besser gehen,wennsie die Notwendigkeit der Dis 
ziplin er- kennen wuerden,anstatt sich immer nach dem leichteren Weg umzusehen. 


3370 DATA "Der Schluessel zu einem guten Managementliegt in sorgfaeltiger Planun 
3380 DATA "Selbstmord ist immer einfach." 


3390 DATA "Gefaengnisse werden wir immer brauchen. Der Mensch laesst sich nun ei 
nmal nicht aendern." 


3400 DATA "Viel haeufiger als andere sage ich: ’Du sollst nie....’’Du musst....’ 
‚’Es ist wichtig,dass...’." 

3410 DATA "Kreative Menschen sind in den Organi- sationen von heute Mangelware 
3420 DATA "Ich fuehle mich oft NICHT O.K.,ohne einen besonderen Grund dafuer 
zu haben." 

3430 DATA "Die erfolgreichen Manager von morgen sind die,die gelernt haben,im 
Team zu arbeiten." 


3440 DATA "Ich bemuehe mich zuviel um Anerkennung bei anderen." 

3450 DATA "Politiker denken an das Wichtigste immerzuerst." 

3460 DATA "Ich habe es gern,wenn Menschen mit ihrenProblemen zu mir kommen." 
3470 DATA "Meine Eltern haben wohl mehr Lebensangstgehabt als andere." 

3480 DATA "Menschen,‚die sich wie die Herren ueber alles und jedes verhalten,man 
gelt es in-nerlich an Selbstvertrauen." 

3490 DATA "Ich ziehe mich gerne zurueck,wenn ich inSchwierigkeiten gerate." 

3500 DATA "Meine Kollegen haben keine Hemmungen, meine Ideen anzufechten." 
3510 DATA "Ich vergleiche Preis und Leistung sehr sorgfaeltig,ehe ich ein Auto 
kaufe." 

3520 DATA "Meine Eltern waren strenger als andere. Sie wurden von ihren Grosselt 
ern genau- so erzogen,wie sie mich erzogen." 

3530 DATA "Ich versuche meistens,ein ausgewogenes Urteil abzugeben." 

3540 DATA "Man wendet sich um Rat eher an mich als an andere." 


3550 DATA "Ich bekomme anscheinend immer das kleinste Stueck vom Kuchen." 
3560 DATA "Ich kann mich daran erinnern,dass meine Eltern meine Ideen und Wuensc 
he fast nielaecherlich gemacht oder darueber ge- spottet haben." 


3570 DATA "Eigentlich halte ich eine Zensur fuer schlecht. Dem Fernsehen taete 
sie aber gut. Es werden zu viele Gewalttaetigkei-ten gezeigt." 

3580 DATA "Ich suche gern nach kreativen Loesungs- moeglichkeiten,nicht so sehr 

nach kon- ventionellen." 

3590 DATA "Ich gebe gern schnelle automatische Ur- teile ab,mehr als meine Mitme 

nschen.”" 

3600 DATA "Ich lese wohl mehr als die meisten Men- schen in meinem Bekanntenkrei 

8%” 

3610 DATA "Es ist vielleicht nicht der sachliche Weg,wuetend zu werden,aber es 
hilf. Es bringt Ergebnisse." 


3620 DATA "Als Kind habe ich gerne gelesen. Es machte mir Spass,Dinge selbst 
staendig herauszufinden." 

3630 DATA "Es aergert mich,wenn ich wuetend und streitsuechtig werde." 

3640 DATA "Mir scheint,dass in dieser Welt jeder das bekommt,was er verdient." 


3650 DATA "Es ist ausserordentlich wichtig,dass dieFuehrenden nie den Ueberblick 
ueber die Situation verlieren." 

3660 DATA "Ich habe eindeutige Vorstellungen von richtig und falsch. Ich bleib 
e jedoch neuen Ideen gegenueber aufgeschlossen." 

3670 DATA "Ich scheine haeufig zu versagen." 

3680 DATA "Ich habe sehr viel fuer Tiere uebrig." 

3690 DATA "Um sich im Berufs- und Geschaeftsleben durchsetzen zu koennen,brauch 
t man Ellenbogen." ; 
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3700 DATA 
t oder zu 
3710 DATA 
3720 DATA 
n ihren 

3730 DATA 


gekommen." 


3740 DATA 
igt." 

3750 DATA 
3760 DATA 


"Es gibt Augenblicke,in denen ich mich 
schnell spreche." 


"Manchmal moechte ich gerne alleine sein, 


"Ich kann sachlich und aufmerksam blei- 
Emotionen steuern lassen." 
"Wenn meine Eltern strenger gewesen wae- 


"Manchmal werde ich von meinen Gefuehlen 


"Ehrlichkeit wird immer belohnt." 
"Wenn mein Vorgesetzter mich tadelt,ver- 


e und ziehemich meistens in mich zurueck." 


3770 DATA 
3780 DATA 
ist." 
3790 DATA 
Nutzen 
chen und 
3800 DATA 
essen." 
3810 DATA 
3820 DATA 
ann. 
3830 DATA 
uehren." 


"Ich bemitleide mich oft.selbst." 
"Meine Gefuehle beeinflussen mein Ver- 


"Obwohl Kompromissstrategien wie Handeln 
haben koennen,kuemmere ich mich lieber 
verspreche,eine Loesung zu finden." 

"Im Urlaub wuensche ich mir immer,nie 


"Selbst bei grosser Wut bleibe ich 
"Manchmal brauche ich zu lange,ehe ich 


Es istschwer in unserer Zeit optimistisch zu 


"Es ist mir lieber hinter einem Fuehren- 


dabei ertappe,dass ich zu lau 


ohne Menschen um mich herum." 
ben,wenn alle anderen sich vo 


ren,waere ich im Leben weiter 


fuer meine Familie ueberwaelt 


spuere ich NICHT O.K.-Gefuehl 


halten staerker,als mir lieb 


und Verhandeln durchaus ihren 
um die zugrundeliegenden Ursa 


mehr nach Hause zurueck zu mu 


aeusserlich ruhig." 

mich zu etwas entschliessen k 
sein." 

den zu stehen,als selbst zu f 


3840 DATA "Da sich negative Ergebnisse manchmal alswichtiger erweisen koennen al 
s positive,versuche ich dem Versagen auf den Grund zu gehen." 

3850 DATA "Einiges was wir im Buero tun muessen,isteinfach laecherlich." 

3860 DATA "Ich bin meistens in der Lage,meine Auf- geschlossenheit gegenueber de 
n Ideen an-derer zu wahren,auch wenn sie mit den 


3870 DATA 
ten Men- 


3880 DATA 
schen 
3890 DATA 
egruesse 
3900 DATA 
3910 DATA 
man sich 
3920 DATA 
3930 DATA 


"Ich sehe die Welt wohl gelassener und 
schen." 


"Ich finde es interessant, festzustellen, 
liegt." 

"Ich bemuehe mich um meine Selbstentfal- 
neue Seminare,Kurse etc." 
"Unkooperative Menschen machen mich 

"Es ist oft schwierig,eine unabhaengige 


damit im Widerspruch zur Mehrheit befin- 


"Ich bekomme meinen Willen nicht so oft, 
"Ich glaube,dass Gefuehle die Grundlage 


en im Lebenbilden,auch wenn ich damit anderer An- 


" 


schen. 
3940 DATA 


"Ich bin davon ueberzeugt,dass die Ge- 


eines Men- schen sehr wichtig sind." 


3950 DATA 


"Wenn ich mich mit einem Problem be- 


t,alle not-wendigen Fakten zu sammeln." 


3960 DATA 
haben und 
3970 DATA 
3980 DATA 
3990 DATA 

fuer die 
4000 DATA 
4010 DATA 
ie ich 
4020 DATA 
4030 DATA 


"Meine Eltern haben dafuer gesorgt,dass 
uns eine klare Denkweise angewoehnten." 
"Meine Eltern waren herzliche und freud- 
"Ich neige mehr als andere dazu,mich 
"Sollen die anderen doch von Blume zu 
konservative Seite." 

"So etwas wie einen 
"Oft finde ich mich 


"Was ich will,das will ich." 
"In unserer Organisation haben wir uner 


e Menschen haben nicht den Mut zu ihren Ueberzeu- 


4040 DATA 


4050 DATA 
sen,neuen 
4060 DATA 
4070 DATA 
4080 DATA 
chuesse." 
4090 DATA 
wohl 

4100 DATA 


"Eine gute Fragetechnik ist grundlegend 


gerechten oder heili- 
mitten in einem Prob- 
’da bloss hineingeraten bin’." 


meinigen nich uebereinstimmen 


zuversichtlicher als die meis 


was hinter den Worten der Men 


tung und Weiterbildung. Ich b 
wuetend." 

Denkweise beizubehalten,wenn 
det." 

wie ich es gerne haette." 
fuer die meisten Entscheidung 
sicht bin als die meisten Men 


fuehle und Wertvorstellungen 

schaeftige,versuche ich zuers 
wir als Kinder gerne gelesen 

liche Menschen." 

selbst zu bemitleiden." 

Blume flattern - ich bin mehr 
gen Krieg gibt es nicht." 


lem wieder und - frage mich,w 


anderem folgendes Problem: Di 
gungen zu stehen." 


fuer ein gesundes Management. 


"Mehr als andere Menschen schaue ich michnach neuen Forschungsergebnis 


Ideen,neuen Richtungen um." 

"Es faellt mir schwer,mein Konto hoch zu 
"Ich bin vertrauenseliger als der Si- 
"Eine ueberragende Fuehrungspersoenlich- 


"Ich habe oft eine andere Meinung als 
selbststaendiger als die meisten." 
"Die Ziele des Einzelnen und die Ziele 


t unbedingtin Widerspruch zueinander stehen." 


MODE 


0:LOCATE 4,12:PRINT"TDRUCKER" 


FOR i=1 TO 190 
PRINT #8,"Aussage Nr.";i:PRINT #8," 
WIDTH 40:PRINT #8,v$(i) 


PRINT #8:PRINT #8," 


+ Zustimmung 


PRINT #8:PRINT #8:PRINT #8 


NEXT 
GOTO 


i 
180 


ueberziehen." 

tuation angebracht waere." 
keit ist besser als zehn Auss 
meine Mitmenschen. Ich denke 


der Organisation muessen nich 


- Ablehnung" 


NEUE RSX-BEFEHLE 


60 UTILITIES 


BASIC PLUS 3 
NEUE RSX-BEFEHLE 


Drei neue BASIC- Befehle für den Schneider 
CPC 


Welche drei Befehle vermißt man auf dem 
CPC am schmerzlichsten? Das dürfte einmal 
eine Anweisung zum Lesen eines Zeichens 
vom Bildschirm sein. Außerdem wäre gele- 
gentlich die Möglichkeit, zwei Speicherstellen 
auf einmal zu lesen oder zu beschreiben, sehr 
nützlich. "BASIC+3" liefert diese drei Befehle 
als RSX. 


In den Kommentarzeilen zum Demo befindet 
sich bereits eine Kurzbeschreibung. Sie sollten 
sie abtippen, um sie immer verfügbar zu 
haben, wenn Sie die Erweiterung einsetzen 
wollen. Hier die ausführliche Beschreibung 
der Befehle: 


1. |IDOKE,adresse,wert 


Legt den 16-Bit-Wert von "wert" in den Spei- 
cherstellen "adresse" und "adresse+l" ab. Das 
niederwertige Byte steht dabei in "adresse". 


2. |DEEK,adresse,@intvar 


Liest einen mit DOKE abgelegten (oder sonst- 
wie dort vorhandenen) 16-Bit-Wert aus den 
Speicherstellen "adrese" und "adresse+1". 
Dabei ist "intvar" eine Integer-Variable, die 
entweder durch DEFINT oder durch ein 
nachgestelltes %-Zeichen als solche definiert 
ist. Reelle Variablen liefern hier falsche 
Werte! 


3. IGETCH,3,xpos,ypos,@intvar 


Liest das Zeichen an der Stelle (xpos/ypos) 
vom Bildschirm und legt seinen ASCII-Wert in 
"intvar" ab. Für "intvar" gilt hierbei das bei 
DEEK Erwähnte. "intvar" hat den Wert 0, 
wenn das Zeichen nicht identifiziert werden 
konnte. Das ist z.B. dann der Fall, wenn zwei 
Zeichen im Transparentmodus übereinander- 
gesetzt wurden oder eine Grafiklinie durch ein 
Zeichen hindurchgeht. GETCH hat keinen 
Einfluß auf die aktuelle Cursorposition. 


(Alwin Ertl) 
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100 ’vyrvoroon nn HD 
EEE BEEEBEEEBEEEEEEEEEBEEB ER EEE 


110 ° BASIC + 3 3 neue R 
SX-Befehle fuer Schneider CPC 464 ’ 


120 ’ (c) by BIG BUG Software 

130 * Version 1.0 
Dezember 1985 d 
140 °’ 


150 ’ Neue Befehle: 


160 ’ DOKE,adresse,wert: 


e" und 
170 


Legt in "adress 

"adresse+l" den 16-bit- ia 

Wert "wert" ab 
’ 


" 


180 ’ DEEK,adresse,Sintvar: Liefert in 


intvar" (ganzzahlige Variable) 3 
190 den 16- bit- Wer 
t an "adresse" und "adresse+1" 


200 ’ GETCH,xpos,ypos,S$Sintvar: Liefert i 
n "intvar" den ASCII-Wert des i 

210 ’ Zeichens an Bi 
ldschirmposition (xpos/ypös); wenn ’ 


220 ’ Zeichen nicht 
identifizierbar, Ergebnis 0 

230 EEZEEZEEEEEEEEEEEEEEEE EEE EEE EEE} 
IE ur Ju Dur Dur Due Dur Dur Der Dur Bus Tas Dur Dur Tu Due Dos Dur Dur Des Bus Tue Bus Bus u Das Dur Br Be Br Bu Bu Br Bu 
240 ’ 


250 MEMORY &A000-1:FOR i=&A000 TO &A070: 
READ a:POKE i,a:NEXT i:CALL &A000 ’Erwei 
terung installieren 

260 ’Demo 

270 MODE 1:INK 0,0:PAPER 0:BORDER 0:INK 
1,15:PEN 1:CLS:öDOKE,10000,0 

280 LOCATE 1,1:PRINT"Dies ist ein Test.. 


290 x%=0:öGETCH,1,1,8x%: LOCATE 1,5:PRINT 
"An Position 1/1 steht ein ";CHR$(x%);" 
300 start%=0:ende%=0:öDEEK,&AE81,8start% 
:ÖöDEEK,&AE83,8ende%:PRINT"Das BASIC-Prog 
ramm steht ab":PRINT"Speicherstelle";sta 
rt%:PRINT"und endet an":PRINT"Speicherst 
elle" ;ende%;"." 
310 öDEEK, 10000, 8x%:PRINT"In Speicherste 
lle 10000 steht": PRINT"im Moment der Wer 
t";x% 
320 öDOKE, 10000, 12345:öDEEK, 10000, 8x%:PR 
INT"Nach einem entsprechenden DOKE steht 
":PRINT"dort";x% 
330 PRINT:PRINT:END 
340 ’DATAs fuer Maschinenprogramm 
350 DATA 1,9,160,33,34,160,195,209,188,2 
0,160,195, 38, 160,195, 57, 160, 195, 79,160,6 
8,79, 75, 197, 68, 69, 69, 203, 71,69, 84, 67,200 
‚0, 0,0, 9, 160, 254,2, 192, 221, 102,3, 221, 110 
5.24 221, 126, 0,119, 35, 221, 126, l, 119, 201, 25 
4,2, 192, 221, 102, 1, 221, 110, 0, 221, 70, 3; 221 
‚18. 2 
360 DATA 10,119,35,3,10,119,201,254,3,19 
2,205,120, 187, 229, 221, 102, 4,221,110,2,20 
5,117,187,205,96,187, 221, 102, 1; 221, 110, 0 
‚119, 35, 54, 0, 225, 205,117,187, 201 


Schneid 
sy 


Crossreferenz 


Kein Basic-Programmierer 
kann es sich erlauben, den Überblick 
über die von ihm benutzten Variablen zu verlieren. 
Tritt aber bei der Bearbeitung eines Programms 
eine längere Pause ein, 
so kann dies doch schon mal geschehen. Um sich nach 
einer solchen Pause schnell wieder einzuarbeiten 
und den nötigen Durchblick zu erhalten, 
ist eine CROSSREFERENZ unentbehrlich. 
Mit Hilfe eines solchen Programms ist es möglich, 
ein Basicprogramm 
nach seinen benutzten Variablen zu durchforsten. 
Diese werden dann in sortierter Reihenfolge 
mit den Zeilennummern ausgegeben, 
in denen sie auftreten (siehe Beispiel). 


Genauso wichtig wie die Variablenanlistung sind die in einem Programm 
enthaltenen Verzweigungen. Hierzu werden in einer 2. Liste in 
aufsteigender Reihenfolge die Zeilennummern ausgegeben, zu denen aus 
den rechts daneben stehenden Zeilen über GOTO, THEN und ELSE 
verzweigt wird. 


Eine 3. Liste gibt Auskunft über die GOSUB'‘s.Links steht die erste 
Zeilennummer der SUB-Routine, rechts die Zeilen, aus denen die SUB- 
Routine aufgerufen wird. Haben Sie Ihr Basic-Programm auf diese Weise 

analysiert, fällt Ihnen der Wiedereinstieg wesentlich leichter. 


Das hier abgedruckte CROSSREFERENZ-Programm ermöglicht Ihnen eine 
. solche Analyse in der beschriebenen Form. 


Anwendungsbeschreibung Zusammenfassend der Datenfluß: 


Genaugenommen besteht das vorliegende 
CROSSREFERENZ-Programm aus 4 Pro- 
grammteilen: 


! CRLOAD.BAS I! ! CROSSREF.BAS I 
! ! j 
CRSORT.BIN ! 1 CRDATEI.DAT 1! 
! ! 
Ra > I CRAUSG.BAS |! 
! 
! ! 
! Liste |! I Bildsch.! 


Das erste Programm "CROSSREF.BAS" analy- 
siert Ihr Programm und schreibt das Ergebnis 
der Analyse in die Datei "CRDATEI.DAT". Im 
2. Programm "CRAUSG.BAS" wird die Datei 
"CRDATEI.DAT" mit Hilfe des MC-Pro- 
gramms "CRSORT.BIN" sortiert und ausgege- | Bevor Sie also erstmalig Ihre CROSSRE- 
ben. Das in Maschinensprache geschriebene FERENZ aufrufen, müssen Sie mit RUN 
Programm "CRSORT.BIN" wird mit Hilfe des "CRLOAD.BAS" die Binär-Datei "CRSORT. 
Basic-Ladeprogramms "CRLOAD.BAS” er- BIN" auf derselben Diskette installieren, auf 


zeugt. Es ermöglicht das Sortieren von Feldern der auch Ihre CROSSREFERENZ laufen soll. 
in Form eines RSX-Commands und kann von 


Ihnen auch in anderen Anwendungen benutzt 
werden. 


62 UTILITIES 


O0: 0 ©. 07.0::9: © 0:00.08. 0.0 © 0 08: ©-..0..09 0 


Programmbeschreibung 
"CROSSREF.BAS" 


Mit dem Aufruf dieses Programms werden Sie 
nach dem Namen des zu untersuchenden Ba- 
sic-Programms gefragt. Dieses Programm wird 
dann zum CROSSREF-Programm "gemergt".Da 
das Programm erst mit der Zeilennummer 
65200 beginnt, können alle Programme "ge- 
mergt" werden, deren letzte Zeilennummer < 
65200 ist. Eine CROSS-Referenz auf "CROSS- 
REF.BAS" kann aus diesem Grund natürlich 


nicht funktionieren. Vor dem Mergen wurde. 


noch eine Routine durchlaufen, die das Mer- 
gen erst möglich macht, da der CPC 464 hier 
einen Fehler im Betriebssystem aufweist. 


Nun erfolgt die Prüfung, ob auf Ihrer Diskette 
überhaupt noch genügend Platz vorhanden ist, 
um die Datei "CRDATEI.DAT" (sie enthält 
später die komplette Auswertung) auf Diskette 
zu schreiben. Ist dies nicht der Fall, erhalten 
Sie einen entsprechenden Hinweis und das 
Programm kommt zum vorzeitigen Ende. Bei 
genügend Platz legt es jetzt mit der Aus- 
wertung los, wobei Ihnen noch mitgeteilt 
wird, wieviel Minuten die Auswertung maxi- 
mal dauern wird. Nun wird jede Zeile des 
gemergten Programms nach Variablen, GO- 
TO‘s, THEN, ELSE und GOSUB'‘s untersucht 
und diese Informationen werden in die Datei 
"CRDATEI.DAT" geschrieben. Nach Beenden 
der Auswertung erfolgt der automatische 
Aufruf des Programms "CRAUSG.BAS". 


45200 
e5201 
65202 
5203 
65204 
&5205 
65206 
3207 
65208 
5207 
65210 
«5211 
65212 ” 


7° Sp:ap:ab: op: oe 
"CROSSREF.BAS von Karl Jahns 

Bd SS SE SETS" SEE NZ [JE SS JE ETSETNETEETEEPEETEETEETTETEE TE LE IE Te Ne rar 
MODE 1 

WINDOW #1,1,40, 1,14 

WINDOW #0,1>40, 15,25 

BORDER O 
INK 0,0 
INK 1,6 : 
INK 2-24: 


PEN #1,1 
FEN #0, 2 


INITIALISIEREN 


ESEIB mm 
65214 
65215 


&521& 


GOSYB 45357 

KEY 139; "RUN &5217"+CHR$ (13) 
GDTO 45238 

> SH “ur 
[e) 2:22:22) 


zz$=SFACE$ (21) 
pgm$=SPACE$ (14) 

: ji=3 

OFENOUT "crdatei.dat" 


43226 


57. 
ae VPE 


45228 
65229 


BB DE DE SZ ZU EUSE EC CE EC EEE ET ET TET BEE Se SE EZ re 02 
” ERLDAD.BAS 

” ERZEUGT MASCHINENCODE DER 

” SORTIERRNUTINE 

BD D2. DE SS. 52.3. U S2U USE BEC EU TEC ECTZUTETTEC ET EC SET SEC CN 1271277277277 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
FOR 

READ 


01,09,42,21,13,a2,c3,d1,bc,Oe 
a2,c3,17,a2,53,41,572;d4,00,00 
0000,00, fe,04,d2,22,a3, fe,02 
da, 22,33,1f-38,04,3e,01;,18,0e 
dd» 7e,01,b7,x2,22,a3,dd, 7e,00 
dd» 23, dd» 23, dd, Se» 00, dd; 5&; O1 
dd, 4e,02,d4>46,03,34,3d,32,0e 
a3,ed,43,10,a3,ed,43,12,a3,21 
03,00,cd;,be,bd,09,22,14,a3, 2a 
12, a3, 23,23,23,22,12>33, 22,16 
a3,2a,16,a3,22,18,a3,2b,2b,2b 
22,16,a3,ed;-5b;10,a3,b7,ed,5Z 
28,50,34,0e,43,32,1a,a3,2a,1& 
a3, 7e,32,1c,a3,e5>dd,e1> 23,23 
23, 7e,32,1e,a3,16,00,3a,1la,a3 
32,32,1a,a3,5f,3a,1e,a3,bb;38& 
37,dd,&e,04,dd,&6&6,05,19; 7e,cd 
ff>,a2,4f»dd,&6e,01>dd>&6&,02,19 
7e,c5, cd, ff,ra2,c1,b9,38,0d,20 
19-21,12,a3,3a,1a,a3,be, 28,02 
15;,c9,eJ.5b,14-a3,2a-12,a3,b7 
ed;S2,c&,c3,59,a2>-Z2a»1&>a3, el 
5b-10,a2,cJ, f9,a2,2a,18,a3,ed 
S5b>14,a3.x<d> f9,a2,Za»-10,a3,ed 
5b, 1&8,a3,cJ, f9,a2,23,45,a2,01 
03,00, ed;b0,29:-21>20,a2:01,07 
00,ed,b1,20,01,06,00,09, 7e.,c9 
00, 00: 00.00, 00, 00,00,00,00;00 
00,00,00,00,00,00,00,00;, 7b, 7« 


i=BAZ0OO TO BRAZZI 


a$:a=VAL("L"+a$):FÜKE i,a 


sum=sum+a 
NEXT ı 
IF sum‘ 27820 THEN 
FRINT "FEHLER IN DATAS" :END 
SAVE "CREORT .BIN",b> RAZ2OO, 290 


END 


” PROGRAMM-NAMEN ZURUECKHOLEN 
” UND IN DATEI SCHREIBEN 


> 


FOR 


i=2 TO 14 
IF FEEK(348+i)=32 


THEN i=14 


MID$ (pqm$, i» 1) =SCHR$ (PEEK. (348+1)) 


NEXT 


FRINT#I-USING a$:pqam$ 


: GOTT eS2EE 


” EILD AUSGEBEN UND FARAMETER 
” ABFRAGEN 


ELLE 


FOKE &B1CE,0O: 


FOKE &B1CF, &LC: 


FOKE 2E1D0,2&33 
LOCATE #1-5>3 


PRINT 


FRINT 


#1, "CROSS -" 


= LOCATE #1>3>5 


KR EFEREN 2” 


LOCATE #1>1>12 


FRINT 


#1, STRING$ (20, CHR$ (154) ) 35 


©: 9. 0b 39: 9%: 1019. 01.,9,29.: 70:70. 9. 0,979.2-0.-9.09:709:9.09:70 


Schneider 
akt 
SeENBEREFerONE 


- FOKE &BICE-1:FOKE &BICF, RSS 45304 IF FEEK(z1)=2 THEN 
QKE %B1DO-%44:FOKE %BiD1, v22: «52307 IF FEEK(z1)=4 THEN 
FOKE &E1DZ;&11 4.5305 
247 LOCATE #158 5309 
4= FRINT #1> 43: VARIABELE VOLLSTAENDIG 
"Version 1.0 / Dezember 1985" 3 " AUFBEREITEN 
LALATE #1,3,10 
FRINT #1>CHR$ (164) 5 2 3 zx=FEEK(z1) 
" by BODQD SOBANSKI u. KARL JAHNS" 53 IF zx > 1258 THEN 
Sl FRINT MID$(zz$» ii, 1)=CHR$(zı-123 
GNTO 45321 
"Beben Sie bitte den Namen des zu" a IF zx < 4& THEN 65297 
= FRINT: FRINT i MID$(zz$, ii, 1)=CHR$(zx) 
"untersuchenden Basic-Frogramms ein" ii=sii+l 
53 FRINT: INFUTspgm$ 5: z1l=z1+1 
LS «“ GATCı 65313 
‘ FRINT "Nach dem Erscheinen von ’RE i IF zz=13 THEN &5329 
druecken" £ 
FRINT 
“Sie bitte die kleine ENTER-Taste": VARIABLEN-KENNZEICHEN ANHAENGEN 
LIND AUF DATEI SCHREIBEN 


THEN MID$ (zz$, ii>-1)="$" 
THEN MID$(zz&, ii,1)="%" 
=4 THEN MID& (z2$, ii, 1)="!" 
MiDt(z22$.1,1)<" " THEN 45277 
MID$(z2$.1:-3)="8 " 
FRINT#9-USING a$:zz$:b 
z7$=SFACE$ (21) 
3 ti=3 
MERGE pgm$ 4 GOITO 45297 
CcLs te j 
BOSYUB 45387 


FOR i=1 TO LEN(pgm$) 
FOKE 349+i,ASC(MID$(pgm$; i,1)) 


NENSENEN] 


namen 


N 


IF FEEK(z1+2)<X>30 THEN 45297 
IF zi>=z+a-Z2 THEN 65297 
qsb=FEEK (z1+3) +254+FEEK (z1+4) 
z21=z1+4 


a=FEEK (2) +256*PEEK (z+1) - FRINT#G-USING b$5 "#"rgsbrb 


® 
©) 
®) 
®) 
®) 
O 
®) 
®) 
®) 
O 
O 
6) 
®) 
O 
O 
®) 
©) 
@) 
®) 
®) 
®) 
O 
O 
O 


b= FEEK (z+2) +Z56#+FEEK (z+3) 


ı 45200 THEN 4528 
ELS: FRINT 
z Frogrammlaenge: "32-365; 
" Bytes" 
! ee RUN "crausg.bas" 


‚ 


“ FOR z1=2+4 TO 
pek = FEEK(zI1). 
IF pek=13 CR (pek>1 AND pekiS) 
AND FEEK(z1+2)=0 THEN 45300 


TEKEN G0OSUB 


IF nek 159 THEN 45338 
:IF zi@z+ta THEN NEXT 


IF FEEK(z1)=13 THEN z 
IF FEEK(z1)=3 THEN zz 


zZ 


3 


; GUOTO 45338 


‚SCHREIBEN GNTD THEN ELSE 


IF PEEK(z1+2 30 THEN 45277 
IF zil>=z+a-Z2 THEN 45277 
ERSSPEER ATS SSAHPEEK LEN AN 
zi=-r1+4 

FRINT#YUSING b$: "&"sgte:b 


ROUTINE ZUM MERGEN VON NICHT 
ASCII-FROGRAMMEN 


GFENEIT "dummy": 
MEMORY HIMEM-1: LLOSEOUT 


: MEMORY HIMEM-41 


DEF FNmsb (a)=&FF AND INT (a/25&6) 
DEF FNlsb (a)=&FF AND UNT (a) 
FOR i=HIMEM+1 TO HIMEM+38 


: READ by 


FOKE i,by 
NEXT i 

FOKE HIMEM+3, FNIsb (HIMEM+39) 
FOKE HIMEM+4, FNmsb (HIMEM+39) 
FOKE HIMEM+9, FNIsb (HIMEM+41) 
FOKE HIMEM+10, FNmsb (HIMEM+41) 
FOKE HIMEM+1&- FNlsb (HIMEM+1) 
FOKE HIMEM+19, FNmsb (HIMEM+O) 
FCKE HIMEM+39, PEEK (&BCE0) 
FOKE HIMEM+40, PEEK (&BCE1) 
FOKE HIMEM+41,PEEK (&BCE2) 
FOKE %BCE0, 03 

FOKE &ECE1.FNlSb (HIMEM+1) 


6 FOKE %BCS2,FNmsb (HIMEM+1) 


DATA &eS: »2a, &00,%00;, 22; LEO; &bı 


& DATA %32,%00,%00, 332, 82, %bc, cd 


& 99:0 - 9.009090 NITRO 2 OS RO 


O 


Crossreferenz 


€5379 
4.53E0 


DATA 880, %bc>&21:8&00,8&00;, 22, L£&1 
DATA %bc,%#21,%80,%&bc, 34, &c3, Zel 


Taste erfolgt. Genauso verhält es sich mit den 


1 
65381 DATA L4S-&cH, kfe-%1a,%37.831,&c0 GOSUB's. Bei der Bildschirmausgabe wird 
O ı ee ae immer der Bildschirm vollgeschrieben, bevor 
| 659384 "========02=00-22=2=0@0------- Mit dem Betätigen einer beliebigen Taste die 
o | ’ ERMITTELN FREIEN SFEICHERPLATZ Fortsetzung folgt. Zuletzt haben Sie die 
I ® ® = > Fa} " 
dr=PEEK (HA700) +64 Möglichkeit, die Datei CRDATEI.DAT zu 
:£ mb=FEEK (BA&IS+tAr) +1 löschen oder bestehen zu lassen. Dies hat den 
x u Sinn, mit RUN "CRAUSG.BAS" die Ausgabe 
N w=PEEK (btab+o) nochmals erfolgen zu lassen, ohne eine neue 
6) | = PaeRe r Be ee Auswertung zu starten. Dies wäre z.B. 
zZ \ u=0 N 453 . . . . 
| FOR Re In 7 = denkbar, wenn Sie zuerst die Bildschirm- 
) IF (m AND (Z2”bit)) THEN anzsanz+t! Ausgabe gewählt hatten und nun doch noch 
SG: a eine Liste gedruckt haben möchten. 
) 2: NEXT o (Karl Jahns und Bodo Sobanski) 
®) ' ee BEER - OO 1 ACC 
I Ope} 
l 2 ä 109° b::hiodipinhiohzop: ah: ohsap: hehe 
OÖ ! 85402 ob=FEEK (LAESZ) +FEEK (LAESA) 20 "CRAUSG.BAS von Bodo Sobanski 
| 65404 un=FEEK (BAEE1) +FEEK (BAESZ) #256 a EN UBER ARE, 
| 45405 pl=ob-un-4751:platz=INT(pl»2.1) ee 
@) | 5402 IF platzibfree THEN 45415 I AL A290 n 
45407 ILS &0 OFENOUT "dJummy': 
| 45408 LOCATE S.1: MEMORY HIMEM-Z: 
j FRINT "Auswertung erfolgt nicht" CLOSENUT 
OÖ 70 DIM vt$(1000) 
50 ueb2$=" in folgenden Zeilen" 
| &5409 LOCATE 5,3: 5 ee 
OÖ! ERLINE, DAT ABER EC DISENEE ZN 100 WINDOW #1»1,40, 1» 4 
65410 LOCLATE 54: A 110 WINDOW #2,1,40, 5,23 
FRINT "Vertuegung Stehende Platz 120 WINDOW #3, 1,40,25,25 
| 85411 LOCATE 5,5: R 130 BORDER Oo 
O ı PRINT STeicht nicht. aus 140 INK 0,0 
Be URL ENOEEN TRNEE 150 INK 1,24: PEN #1,3 
) "Flatz auf Diskette =";bfrees;"By 160 INK 2.11: PEN #2;1 
©: 5413 EOCATE 3:93. FRIMT e 170 INK 3,& : PEN #3,2 
I "Flatz benoetigqt =";platz;"Bytes OO me en en a ne Ba 5 
| 65414 END 190 "AUSGABE UEBERSCHRIFT 
®) f «5415 CLS 00 Fesseln 
Re SR 00 210 POKE &B1CE,0: FOKE ZBICF,&C0C: 
65417 IF t<1 THEN t#=1 ie KEInB SS 
| &£5418 LOCATE 3,1: PRINT GE LOchTE a 
OÖ "Die Auswertung dauert ca." 230 FRINT #1- "CROSS - REFERENZ" 
ste Himbien. 240 LOCATE #1,1,2: 
| 465419 IF t=1 THEN 65421 FRINT #1, STRING$ (20; CHR$ (154) ) 5 
Or FSRWLICHTE E1na: PRINT 250 FOKE %BIC8,1:  FOKE LBICF,%B8: 
"Bitte etwas Geduld FOKE &E1OO,%44: FOKE #BID1,R22: 
| 65421 RETURN FOKE %B1D2,-%11 
ch 260, ?----- 22-2020. 22 0000 
f 270 * AUSGABENSTEUERLUNG 
zZEO °--------- --- ----- ---------- 0... 
77] | . 290 LOCATE #2, 2.6 
Tr O , Programmbeschreibung ep 
"Bilgdschirm- oder Truckausgabe (B/D) ?" 
— PR " Z1I0O FRINT CHRE (7) 
3.] CRAUSG.BAS 220 k$=INKEY$: IF k$ = "" THEN 320 
330 IF UFFERS(K$) = "D" THEN g=&: 
u Dieses Programm dient dazu, die in der Datei ai m, re aa 
. = a ! IPFER $ = qa=.2: 
Pin | ©) "'CRAUSG.DAT" enthaltenen Informationen EArı A0o s 
un Ihren Wünschen entsprechend aufzubereiten. 340 soro 320 
I N . . . ALU) °-------- ---- 0.000000 
be [®) | Hierzu werden Sie gefragt, ob Sie die Ausgabe 3,5 -Auszuss-KRITERIEN AUFBEREITEN 
un } auf dem Drucker oder Bildschirm haben wol- z=20 "varIaBLEN 
o | len. Zuerst werden die Variablen aus der Da- 27° ee en 
| tei gelesen und sortiert. Sollen sie auf dem aı10 arts="s 
| Drucker ausgegeben werden, haben Sie nach nn aa en ren Ne 
Ö ı der letzten Variablen die Möglichkeit eine S 
I neue Seite einzuspannen, da die Ausgabe der 2 ee ee 
. . . . £O) seblj$="GÜUTN’sS " 
O ! GOTO's erst nach Betätigen einer beliebigen 7, ran 
j F 


4m as5rÖ 


©. 10-0: 107 70:9: 70: 70:20: 9:19:07: »O. 0: 9 12 


Schneider 
akt 
Crossreferenz 


u 

740 as=0 | 

| 490 GOSUB 700 970 GOTO 840 ı 
| 


515 ak 5 SERIE SEE ESEEIEIENEENERE NER ERBE SL EREEE "I 2 SENSOR ge0 ° 
| 510 ’sosuBrs 990 "SUBROUTINE SORTIEREN UND AUSGEBEN 
1. SEO ea lernen he el ann 1000 "========2 === == 22222 2=2=2=2=22222202 0200 | 
530 uebl$="ANSUB’s " 1010 IF as{i4 THEN 1070 
| 540 arts="# " 1020 ÖSCRT,8vt$(0),as | 
| 550 as=0 1030 FRINT CHR$ (7); | 
540 GOSUB 700 1040, 75775578 ne 
eye. rasen eenss nenn ee 1050 "AUSGEBEN j 
| 580 "ENDE 1060: TSF | 
RR U ESESEURE SUR SI ERAEIELSNESENERERSFEER. FOREN TERER 1070 IF qg=2 THEN LOCATE #1,1,3: 
| 600 IF a=8 THEN PRINT #8,CHRS(12); FRINT #1>,LEFT$ (ueb1$>8) ;ueb2$ j 
| 610 MODE 1 10850 IF g=& THEN PRINT #8, | 
&20 PEN 1 CHR$ (27) 5 CHR$ (&9) ; 
| &30 INFUT LEFT$ (ueb1$,8) ;ueb2$; I 
| "Datei "CRDATEI.DAT’ loeschen (J/N) ": CHR$ (27) 5 CHR$ (70) 5 | 
ss CHR$ (1095 
| «40 IF UPPER$(a$)="J" THEN 1090 CLS #2 I 
| a$="cerdatei.*": öERA-Sas A EENSAHREIEN ERTET K ee eg | 
| #50 CLs 1110 "AUSGABE-SCHLEIFE 
&6O END 1120, SIE en me sermesssl 
| 670 "seeseeacisaenseeeeaneeneenennnnnn 1130 varalts="" | 
| 680 "SUBRAUTINE DATEI LESEN 1140 FOR i=1 TC as | 
LI Fuel neseinn en ses 1150  var$= MIDS$(vt$(i),1,13) 
| 700 cıs #2 11£&0  znr =VAL(MII$(vt$(i)>-14-5)) | 
| 710 LOCATE #7>-&>»& 1170 IF var$<{>varalt$ THEN 1250 | 
| 720 PRINT #2, 1180 IF tb=14 THEN zz=zz+1 
"Die "suebl$:" werden sortiert" 1190 tb=tb+& I 
| 720 LOLATE #2,14,12 1200 FRINT #q» | 


| 730 FRINT #2, "Bitte warten" TAE(tb) ZVEING "Hd" ze: 

750 AFENIN "ERDATEL.DAT" = IF qg=2 AND tb=32 THEN tb=& | 
| 720 IF ECGF THEN END AND tb=6& THEN tb=& | 
770 LINE INFUT #9-.Jat$ AND zz>15 THEN 
720 pam$=MID$ (dat$-2.12) FRINT #3,» 


790 IF q=& AND arts$="5 " THEN "Zum Elaettern --= beliebige Taste": 
FRINT #&>CHR$ (14): CALL &EEO&: CLS #23 CLS #3: 
CHR$ (27) ECHR$ (49) SUIFPERS (pam$) + SOTO 1250 


GCTO 1300 
tb=1 


" EROSS-REFERENZ-LISTE": 
CHRE(ZO)SCHRE (LO) SCHRE (10) 5 


£00 WHILE NOT ECF FRINT #qg- TABttb) svar$: 

210 LINE INFUT #9.dJats varaltst=vart 

E20 IF MID&(dJat$.1.3)Xbart$ THEN S40O tb=tb+13 

330 as=astl E FRINT #g, 

AO  vts(as)=MIOs (dats-4. 18) TABCtEISLIEING "RRHHHH" Ss zre: 

50 IF as=1000 THEN #70 1300 NEXT i 

WEN! 1310 °---------------- ---- 0. 
ELCSE IN 1320 " TABELLENENDE 
GCTa 1010 SB SEES TS Ho 
FRINT #2, "Mehr als 1000 Elemente." EHR$ (1095 
LOCATE #2.1,7 1350 FRINT #3, 
FRINT "Ende der ":LEFT&$ (ueb1$,9): 
"Speicherplatz nicht ausreichend." " om> beliebige Taste" 


LALL %»BROA 
UMATE #1.1>-32FRINT #1»SFACE$ ( 


l 


7206 IWWATE #2,5,8 
7 


740 FRINT NA 


(> 


"Tiaher erst eınmal sortieren" ELSE #2 
750 GÜOZUB 1LOLO [LE #3 
RETURN 


| 
j 
) 
| 
j 
j 
I 
I 
| 
j 
l 
j 
CLE #2: LOKATE #2, 1-6& 1240 IF q=& THEN FRINT #9, CHR$ (10); 
j 
j 
| 
j 
j 
) 
| 
j 
j 
j 
I 


CORAUZG._.BASZS URÖOST-REFERENZ—-LISTE 


Variable in folgenden Zeilen 


ar 


a0 1010 1020 


1070 1210 


1220 


8 : 124 
1140 Sc 1140 300 


10: © 26 © .©- © 0.0000 0006902°%0008.90o 
& .©- 0.10.00. 0:09.09 &.0 ©08% © 0:0:.© ©. 0.9.0 © 


UTILITIES 


66 


pgm® 
tb 


neb1%$ 
neh2& 
ver$ 
varaltät 
vis 

znrv 


SOTO’s 


Sz0 


erenz 


g® SEO 320 Sau 
720 770 
1120 1190 1200 1210 1210 1220 
1220 1220 
ann Al 7201070 10201250 
= 1070 
115011706 1270 
1126 1170 
70 Al 1150 1140 
1140 1200 
1120 1120 1230 


in folgenden Zeilen 
350 
3.4.0 
770 


1230 


EX 


4377 N 


DANK AN ALLE UNSERE LESER 


Wir danken allen unseren "aktiven" Lesern, den eifrigen CPC- und PCW-User-Clubs 


und allen unseren freien Mitarbeitern, die am Entstehen dieser Ausgabe von 


"SCHNEIDER-aktiv" mitgearbeitet haben. Wir wollen noch besser werden und bitten 
daher alle, die sich in irgendeiner Weise mit dem CPC bezw. dem PCW beschäftigen, 


uns tatkräftig zu unterstützen. Insbesondere die User-Clubs fordern wir auf 
"SCHNEIDER-aktiv" als ihr Sprachrohr zu sehen. 


Daher schickt uns weiterhin: 
m Listings 
a Erfahrungsberichte 
m Lob und Kritik 


sm Vorschläge 


Schreibt uns oder kontaktiert unsere MAILBOX. 


SCHNEIDER-aktiv Team - Schneefernerring 4 - 8500 Nürnberg 


Telefon 


: 0911/84244 - Modem: 0911/84400 (17 - 24 Uhr) 


UBER RES MERERENISHEREHEREL GENE SEER. EHBEREBER,, 


akt 


F.W.’s COMPUTERKURS 


HUMOR 


TEIL II VON TEIL I 


Oder: Was’n nu (wat’n nu)? 


Willkommen beim dritten Teil des ersten Tei- 
les des mehrteiligen Computerkurses, bezieh- 
ungsweise dem letzten Teil des ersten Teiles, 
welchem aber noch andere Teile folgen. 


Alles klar? Habt Ihr Eure Hausaufgaben alle 
gemacht und die Lösung auf die Fragen der 
letzten Ausgabe herausbekommen? Wenn ja, 
dann schreibt mir mal; es würde mich selber 
interessieren. 


Immerhin sind wir schon weit gekommen und 
wissen nun, daß die CPU die Daten einteilt 
und verwaltet. Wir... (wieso eigentlich immer 
"WIR"? "IHR" wollt doch was lernen!), Ihr 
gebt also folgendes Programm ein, um anhand 
dieses bemerkenswerten Beispiels zu lernen, 
wie es denn im Computer weitergeht. Zu den 
ganzen Programmbeispielen des Kurses muß 
vorab allgemein geklärt werden, daß das 
Copyright natürlich beim Verfasser liegt. Die 
Verwendung in eigenen Programmen ist nur 
mit schriftlicher Genehmigung möglich. Bei 


Anfrage 10.-DM-Schein als Bearbeitungs- 
gebühr beilegen! 
Programmbeispiel 1 
10 MODE 2 
20 INPUT"Name: ",n$ 
30 cLS 
40 PRINT n$;" Ich bin dein Computer!" 
50 wS=INKEYS:IF wS=""THEN 50 
60 CALL 0 
Diese kurze, aber wirkungsvolle Routine 


verblüfft den unbefangenen Betrachter doch 
immer wieder. Wir aber, denen nach Wissen 


erfahren, was 
Zur Er- 


natürlich 


wollen 
im Computer vorgeht. 
klärung jedoch noch folgendes: Im wesent- 


dürstet, 
eigentlich 


lichen beteiligt ist das ROM (Read Only 
Memory - Nur Lesespeicher), ein kleiner 
verstaubter Speicherplatz mit allerhand kleinen 
Programmen, egal ob man sie braucht oder 
nicht. 


Erster Merksatz (Ihr habt wohl 
geglaubt heute gibts keine) ist also: 


schon 


Im ROM kann man nur lesen (wenn man 
kann), man muß aber nicht. Viel wichtiger 
ist, daß die CPU darin liest. 
Programmtechnisch auf dem laufenden ist das 
RAM (Random Acces Memory - Hirn mit 
wahlfreiem Zugriff), in dem unser Super- 
programm dann auch abgelegt ist. Hieraus 
folgt logischerweise, daß es noch einen zwei- 
ten Merksatz geben muß: 


Zweiter Merksatz: 


Beim RAM hat man die Wahl, ob man zu- 
greift oder nicht. Wenn der Preis stimmt, 
sollte man sich ruhig ein paar Kilo auf die 
Seite legen. 


Also, das Programm ist da wo es hingehört 

(nicht im Papierkorb, im RAM !!!) und wir 

tippen ein: "Jetzt gehts aber los." Wem das zu 

lang erscheint, der schreibt "RUN" und wenn 
die ENTER Taste gefunden und betätigt ist, 
geht’s los. 

CPU: "Ja, ja ich mach ja schon. Hallo ROM, 

Modus 2 ist angesagt; könntest du mal 

so freundlich sein?” 

ROM: "Ich habe gerade eben erst Modus I ge- 
schaltet, muß das denn jetzt schon wie- 
der sein?" 

RAM: "Nun mach schon, ich will auch mal.” 
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HUMOR 


F.W.’s COMPUTERKURS 


ROM: 


RAM: 
ROM: 


CPU: 


ROM: 


RAM: 


ROM: 


CPU: 


RAM: 


ROM: 
RAM: 


CPU: 


RAM: 


ROM: 


CPU: 


ROM: 


RAM: 


CPU: 


ROM: 


RAM: 


ROM: 


CPU: 


RAM: 


ROM: 


"Nur ned huddele... Also, mit bunt ist 
nix, dafür aber 80 Zeichen. Welche 
Farben wollt Ihr denn ?" 

"Ist egal.” 

"Was heißt hier "IST EGAL"?. So kann 
doch keiner arbeiten. Euch möcht’ ich 
mal erleben, wenn ich einfach rosa 
nehmen würde.” 

"Nimm die Standardfarben, aber mach 
endlich!” 

"Also Gelb und Blau. Dir fällt auch nix 
Neues mehr ein.” 

"Jetzt bin ich aber dran. Hallo CPU, 
kannst du mal eben "Name" auf den 
Bildschirm schreiben und ’ne Eingabe 
verlangen.” 

"Apropo verlangen..: Ich krieg noch 6 
Bytes von Dir, CPU !" 

"Ein dümmerer Moment ist Dir nicht 
eingefallen, was ? Gib mir lieber mal 
die Ausgaberoutine, ich muß was 
schreiben. Hoffentlich kann der Typ 
überhaupt lesen. Aahhhh..... Achtung!” 
"Er tippt schon, mein Gott, wie lang- 
sam! Ein E, ein U, wahrscheinlich heißt 
er EUMEL." 

"Fauler Witz!" 

"Können wir mal ernsthaft weiter, ja ?" 
"Okay, es kommt noch ein G, ein E und 
ein N, also EUGEN heißt er. Naja, auch 
nicht viel besser.” 

"Haste recht! Macht mal den Bild- 
schirm frei, ich hab dem Knaben was 
mitzuteilen.” 

"Ach Gottchen, bist Du wieder wichtig. 
Lösch ihn Dir doch selbst Du...” 

"Bitte, bitte, kein Streit jetzt. Putz den 
Bildschirm und Schluß ist.” 
"Meinetwegen. Aber da wär noch genug 
Platz gewesen.” 

"Also, jetzt schreiben wir: "EUMEL, 
Ich bin Dein Computer” 

"EUMEL ? Verarsch den armen Kerl 
nicht, der hat noch nicht mal alle Raten 
für uns bezahlt.” 

"Macht nix, der kann wahrscheinlich 
sowieso nicht lesen.” 

"Dann eben "EUGEN", aber das wär 
mal ein Gag gewesen, was ?" 

"Fauler Witz !" 

"Okay, ich hab’s geschrieben, aber ich 
glaub, das ist das blödeste Programm, 
das ich kenne.” 

"Soll von dem F.W. sein” 

"EHRLICH. Ich denk, ich werd’ nicht 
mehr. Läßt mich hier im Modus zwei 
arbeiten, als hätt’ er was zu schreiben 
und dann sonen EUMEL-Mist. Das eine 


kann ich Euch flüstern: Noch mal so ein 
Programm von dem und Ihr macht 
Euren Dreck alleine. Und über-haupt, 
ist ja lächerlich sich hier für den abzu- 
zappeln. Wenn der noch mal eine Taste 
drückt, dann mach ich Schluß. Ist mein 
Ernst, der hat ja nicht mehr alle 


Tja, liebe Kursteilnehmer, soweit also mal der 
realistische Ablauf eines Programmes, ist gar 
nicht so schwer zu begreifen, was? Überprüft 
Euer Wissen also noch mit folgenden Fragen 
(doch, doch, darauf muß ich bestehen). Dies- 
mal ist auch ein kleines Preisausschreiben 
damit verbunden. 


7. ROM ist.... 
a. in der kleinsten Hütte und da kann’s 
auch bleiben. 
b. nur zum Lesen da, valerie und valera. 
c. ein unheimlich arroganter Knüppel. 


8.RAM ist.... 
a. wenn man’s trotzdem macht. 
b. die Hauptstadt von Italien. 
c. zum Schreiben, zum Lesen, zum Teufel. 


Die Lösung schreibt bitte auf eine Postkarte 
an die Zeitschrift "SCHLIP", Schillerstr. (oder 
war’s Bithovenstr?) 23a in München. Zu 
gewinnen gibts auch etwas. Erster Preis: Keine 


Speichererweiterung (Tja, Glück muß der 
Mensch haben); zweiter Preis: Kein Modem 
von der Bundespost (Riesenglück) und als 
dritten Preis gibt es eine vierzehntägige 
Seereise der Firma ADVENTURE HOLLY- 
DAYS auf der Traumgaleere mit Sascha Hahn. 
Also dann, bis zum zweiten Teil des Kurses, 
der da heißt: DATENTRÄGER SATT. 
(F.W.) 
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TABELLEN 


Beschreibung: 


Dieses Programm hilft bei 
Umrechnungen von Maßen und Gewichten 
(z.B. cm in Zoll oder umgekehrt) 
sowie bei den wichtigsten 
europäischen und außereuropäischen Währungen. 


Es gibt für beide Bereiche zwei Möglichkeiten: 


1. Umrechnung nach eingegebenen Werten 
2. Umrechnung in Form einer Tabelle 


Alle Bildschirmausdrucke 


können wiederum auf einen Drucker geleitet werden, bzw. auch direkt gedruckt werden. 


Durch Menüsteuerung dürfte es keine Probleme bei der Handhabung geben. (Bitter) 


10 DIM f(42),v$(34),x(540),a(540),vv$(34 
),m$(42),n$(42):GOSUB 1480:GOSUB 1590: f$ 
="Deutsche Mark" 

20 MODE 2:FOR i=1 TO 540:a(i)=0:x(i)=0:N 
EXT:v=0:LOCATE 25,8:PRINT"Umrechnungstab 
ellen":LOCATE 25,9:PRINT STRING$(19,45) 


30 LOCATE 25,12:PRINT"1 - Waehrungsunmrec 
hnung":LQCATE 25,14:PRINT"2 - Umrechung 

von Masse,Gewichte etc.":LOCATE 25,17:PR 
INT"Bitte waehlen Sie !":LOCATE 10,25:PR 


INT" Programmiert von Reinhar 
d Bitter" 

40 a$=INKEY$:IF a$="" THEN 40 

50 ON VAL(a$) GOTO 770,70 

60 GOTO 40 


70 an=0:CLEAR INPUT:MODE 2:LOCATE 11,1:P 
RINT"Umrechnung von Masse, Gewichte und 
Geschwindigkeiten":LOCATE 11,2:PRINT STR 
ING$(52,45) 

80 LOCATE 2,4:PRINT"1 - Zoll(inch) in Mi 
llimeter":LOCATE 41,4:PRINT"2 - Millimet 
er in Zoll(inch)" 

90 LOCATE 2,5:PRINT"3 - Zoll(inch) in Ce 
ntimeter":LOCATE 41,5:PRINT"4 - Centimet 
er in Zoll(inch)" 

100 LOCATE 2,6:PRINT"5 - Fuss(ft) in Zol 
l(inch)":LOCATE 41,6:PRINT"6 - Zoll(inch 
) in Fuss(ft)"” 

110 LOCATE 2,7:PRINT"7 - Fuss(ft) in Met 
er":LOCATE 41,7:PRINT"8 - Meter in Fuss( 
ft)" 

120 LOCATE 2,8:PRINT"9 - Yard(yd) in Zol 
l(inch)":LOCATE 40,8:PRINT"10 - Zoll(inc 
h) in Yard(yd)" 

130 LOCATE 1,9:PRINT"11 - Yard(yd) in Me 
ter":LOCATE 40,9:PRINT"12 - Meter in Yar 
d(yd)" 


140 LOCATE 1,10:PRINT"13 - Meile(mile) i 
n Meter":LOCATE 40,10:PRINT"14 - Meter i 
n Meile(mile)" 

150 LOCATE 1,11:PRINT"15 - Seemile(nmile 

) in Kilometer" :LOCATE 40,11:PRINT"16 - 

Kilometer in Seemeile(nmile)" 

160 LOCATE 1,12:PRINT"17 - Qudratzoll in 
Quadratmillimeter":LOCATE 40,12:PRINT"1 

8 - Quadratmillimeter in Quadratzoll" 

170 LOCATE 1,13:PRINT"19 - Quadratfuss i 

n Quadratzoll":LOCATE 40,13:PRINT"20 - Q 

uadratzoll in Quadratfuss" 

180 LOCATE 1,14:PRINT"21 - Acre in Quadr 

atmeter":LOCATE 40,14:PRINT"22 - Quadrat 

meter in Acre" 

190 LOCATE 1,15:PRINT"23 - Acre in Hekta 

r":LOCATE 40,15:PRINT"24 - Hektar in Acr 

e 

200 LOCATE 1,16:PRINT"25 - Gallone (USA) 

in Liter":LOCATE 40,16:PRINT"26 - Liter 

in Gallone(USA)" 

210 LOCATE 1,17:PRINT"27 - Gallone(Engla 

nd) in Liter":LOCATE 40,17:PRINT"28 - Li 

ter in Gallone (England)" 

220 LOCATE 1,18:PRINT"29 - Registertonne 
in Kubikmeter":LOCATE 40,18:PRINT"30 - 

Kubikmeter in Registertonne" 

230 LOCATE 1,19:PRINT"31 - Pint(England) 
in Liter":LOCATE 40,19:PRINT"32 - Liter 
in Pint(England)" 

240 LOCATE 1,20:PRINT"33 - Quart (England 
) in Liter":LOCATE 40,20:PRINT"34 - Lite 
r in Quart(England)" 

250 LOCATE 1,21:PRINT"35 - Barrel(USA) i 
n Liter":LOCATE 40,21:PRINT"36 - liter i 
n Barrel(USA)" 

260 LOCATE 1,22:PRINT"37 - km/h in Meter 
pro Sekunde":LOCATE 40,22:PRINT"38 - Me 

ter pro Sekunde in km/h" 
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270 LOCATE 1,23:PRINT"39 - mile/h(mph) i 

n km/h":LOCATE 40,23:PRINT"40 - km/h in 

mile/h(mph)" 

280 LOCATE 1,24:PRINT"41 - Knoten(kn) in 
km/h":LOCATE 40,24:PRINT"42 - km/h in K 

noten(kn)" 

290 LOCATE 23,25:PRINT CHR$(24) ; :LOCATE 
23,25:PRINT"Bitte waehlen Sie! ";:PRINT 

CHR$(24);:INPUT ab 

300 IF ab<1 OR ab>42 THEN 290 

310 CLS:LOCATE 30,10:PRINT"1 - Umrechung 

stabelle":LOCATE 30,12:PRINT"2 - Einzelu 

mrechnung":LOCATE 32,15:PRINT"Bitte waeh 
len Sie" 

320 a$=INKEY$:IF a$="" THEN 320 

330 ON VAL(a$) GOTO 400,350 

340 GOTO 320 

350 st=2:CLS:INPUT"Wieviele Werte sollen 


umgerechnet werden? ",‚an 

360 FOR i=1 TO an 

370 PRINT USING"###";i;:PRINT".";: INPUT" 
Wert: ",‚,a(i) 

380 NEXT i:CLS 

390 FOR i=1 TO an:x(i)=a(i)%*f(ab):NEXT:G 
OTO 420 

400 st=1:CLS:LOCATE 26,12:PRINT"Ich rech 
ne, bitte warten....." 

410 FOR i=1 TO 540:x(i)=f(ab)*#i:NEXT 

420 CLS:b$=m$(ab):c$=n$(ab) 

430 d$="Umrechnungstabelle "+b$+" in 


"+c$:c=INT((80-LEN(d$))/2) 

440 LOCATE c,1:PRINT d$:LOCATE c,2:PRINT 
STRING$(LEN(d$),45) 

450 d=14-LEN(b$) :e=33-LEN(c$):g=56-LEN(b 
$):h=76-LEN(c$) 

460 LOCATE d,3:PRINT b$:LOCATE e,3:PRINT 
:LOCATE g,3:PRINT b$:LOCATE h,3:PRINT 


LOCATE 2,4:PRINT STRING$(78,45) 

ii=1:j=5:IF an=0O THEN an=400:FOR i=1 

460:a(i)=i:NEXT 

FOR i=ii TO an 

LOCATE 1,5J:PRINT USING" ##,###, ###.## 

";sa(i);:LOCATE 20,5j:PRINT USING" ##,###,# 

##.##";x(i):IF st=2 THEN 520 ELSE 510 

510 LOCATE 38, j:PRINT"*";:LOCATE 43,j:PR 

INT USING" ##,###,###.##" ;a(i+20); :LOCATE 
64,jJ:PRINT USING" ##,###,###.##";x(i+20) 

520 j=j+1:IF st=2 THEN 540 ELSE 530 

530 IF i=20 OR i=60 OR i=100 OR i=140 O 

R i=180 OR i=220 OR i=260 OR i=300 OR i= 

340 OR i=380 THEN ii=-i+21:5=-5:GOTO 570 

540 IF i=an THEN ii=1:5=25:GOTO 570 

550 IF i=20 OR i=40 OR i=60 OR i=80 OR i 

=100 OR i=120 OR i=140 OR i=160 OR i=180 
OR i=200 THEN ii=i+1:5j=5:GOTO 570 

560 NEXT i 

570 LOCATE 2,25:PRINT" Cur 

sor-Tasten ’Strich’ bewegen, Copy-Taste 

weiter x; 

580 xx=7:y=321:q=256 

590 PLOT xx,y,1:DRAW q,y,1:INK 1,24 

600 IF INKEY(2)=0 THEN PLOT xx,y,2:DRAW 
‚y,2:INK 2,2:y=y-16:GOTO 650 

610 IF INKEY(0O)=0 THEN PLOT xx,y,2:DRAW 

2:INK 2,2:y=y+16:GOTO 650 

620 IF INKEY(1)=0 THEN PLOT xx,y,2:DRAW 

q,Y,2:INK 2,2:q=q+343:xx=xx+313:GOTO 650 

630 IF INKEY(8)=0 THEN PLOT xx,y,2:DRAW 

q,Y,2:INK 2,2:q=2q-343:xx=xx-313:GOTO 650 
640 IF INKEY(9)=-1 THEN 650 ELSE 660 

650 FOR ai=1 TO 100:NEXT:GOTO 590 

660 PLOT xx,y,2:DRAW q,y,2:INK 2,2:LOCAT 
E 2,25:PRINT"Gesamte Tabelle drucken <1> 
Bildschirm ausdrucken <(2> Weiter (3> 
Beenden <(4>"; 

670 as=INKEY$:IF a$="" THEN 670 

680 ON VAL(a$) GOTO 1810,700,490,20 

690 GOTO 670 

700 f=1:GOSUB 720:G0TO 670 


f=1:GOSUB 720:GOTO 1450 
FOR z=1 TO 24 

FOR zz=1 TO 80 

LOCATE zz,2:a$=COPYCHR$(#0) 


750 PRINT #8,a$;:f=f+1:IF f=81 THEN PRIN 
T #8:f=1 

1760 a$="":NEXT zz,z:PRINT#8:PRINT#8:RETU 
RN 


770 CLS:MODE 2 

780 LOCATE 16,2:PRINT"Umrechnungstabelle 
fuer Fremdwaehrungen" 

790 LOCATE 16,3:PRINT STRING$(39,45) 

800 LOCATE 2,6:PRINT"1 - DM in US-Dollar 
":LOCATE 41,6:PRINT"2 - US-Dollar in DM" 

810 LOCATE 2,7:PRINT"3 - DM in Pfund Ste 

rling":LOCATE 41,7:PRINT"4 - Pfund Sterl 
ing in DM" 

820 LOCATE 2,8:PRINT"5 - DM in Ital. Lir 
e":LOCATE 41,8:PRINT"6 - Ital. Lire in D 

M" 

830 LOCATE 2,9:PRINT"7 - DM in Schwedisc 
he Kronen" :LOCATE 41,9:PRINT"8 - Schwedi 
sche Kronen in DM" . 

840 LOCATE 2,10:PRINT"9 - DM in Hollaend 

Gulden" :LOCATE 40,10:PRINT"10 - Hollae 

nd. Gulden in DM" 

850 LOCATE 1,11:PRINT"11 - DM in Span. P 
esetas":LOCATE 40,11:PRINT"12 - Span. Pe 
setas in DM" 

860 LOCATE 1,12:PRINT"13 - DM in Griech. 
Drachmen":LOCATE 40,12:PRINT"14 - Griec 
h. Drachmen in DM" 

870 LOCATE 1,13:PRINT"15 - DM in Franz. 
Franc" :LOCATE 40,13:PRINT"16 - Franz. Fr 

anc in DM" 


880 LOCATE 1,14:PRINT"17 - DM in Belg. F 
ranc":LOCATE 40,14:PRINT"18 - Belg. Fran 
ce in DM" 

890 LOCATE 1,15:PRINT"19 - DM in Daen. K 

ronen":LOCATE 40,15:PRINT"20 - Daen. Kro 

nen in DM" 

900 LOCATE 1,16:PRINT"21 - DM in Norweg. 
Kronen" ;LOCATE 40,16:PRINT"22 - Norweg. 
Kronen in DM" 

910 LOCATE 1,17:PRINT"23 - DM in Oesterr 

Schilling":LOCATE 40,17:PRINT"24 - Oes 

terr. Schilling in DM" 

920 LOCATE 1,18:PRINT"25 - DM in Schweiz 

er Franken" :LOCATE 40,18:PRINT"26 - Schw 

eizer Franken in DM" 

930 LOCATE 1,19:PRINT"27 - DM in Portug. 
Escudos":LOCATE 40,19:PRINT"28 - Portug 

. Escudos in DM" 

940 LOCATE 1,20:PRINT"29 - DM in Finnmar 

k":LOCATE 40,20:PRINT"30 - Finnmark in D 

M" 

950 LOCATE 1,21:PRINT"31 - DM in Japan. 

Yen":LOCATE 40,21:PRINT"32 - Japan. Yen. 
in DM" 

960 LOCATE 1,22:PRINT"33 - DM in Jugosl. 
Dinar":LOCATE 40,22:PRINT"34 - Jugosl. 

Dinar in DM" 

970 LOCATE 27,25:PRINT CHR$(24):LOCATE 2 

7,25:PRINT"Bitte waehlen Sie";:PRINT CHR 

$(24) 

980 LOCATE 35,23:INPUT ab 

990 IF ab<1 OR ab>34 THEN 990 

1000 ON ab GOTO 1010,1020,1010,1020,1010 

‚1020,1010,1020,1010,1020,1010,1020,1010 

‚1020,1010,1020,1010,1020,1010,1020,1010 

‚1020,1010,1020,1010,1020,1010,1020,1010 

‚1020,1010,1020,1010,1020 

1010 b$=f$:c$=v$(ab):g$=v$(ab):e$=vv$(ab 

):f$="DM":1=21:GOTO 1030 

1020 b$=v$(ab) :c$=v$(ab):g$=f$:e$="DM":f 

$=vv$(ab):1=22:GOTO 1030 

1030 MODE 2: d$="Waehrungsumrechnung "+ 

b$+" in "+g$:c=INT((80-LEN(d$))/2) 

1040 LOCATE c,1:PRINT d$:LOCATE c,2:PRIN 

T STRING$(LEN(d$),45) 
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1050 LOCATE 10,4:PRINT"Bitte geben Sie d 
en aktuellen Kurs von ";c$;" ein!" 

1060 LOCATE 10,6:PRINT"(z.B. Kurs: 100 U 
S-Dollar=258.00 DM dann bitte 258.00 ein 
geben)" 

1070 LOCATE 39,8:INPUT" ",v 

1080 LOCATE 31,12:PRINT"1 - Waehrungstab 
elle" :LOCATE 31,14:PRINT"2 - einzelne Be 
traege" k 

1090 LOCATE 31,17:PRINT"Bitte waehlen Si 
e" ; . 
1100 a$3=INKEY$:IF a$="" THEN 1100 

1110 ON VAL(a$) GOTO 1130,1160 


::1120. GOTO- 1100 
1130 


st=z1:CLS:LOCATE 26,12:PRINT"Ich rec 
hne, bitte warten.....":IF 1=1 THEN 1140 
"BLSB 1150 

-1140 FOR i=1 TO 540:x(i)=100/v$i:a(i)=i: 


'.NEXT:GOTO 1210 


1150 FOR i=1:TO 540:x(i)=v/1008i:a(i)=i: 
‚NEXT:GOTO 1210. '_ 


1160 at=2:MODE 2:INPUT"Wieviel Betraege 
sollen umgerechnet werden? ",an 


1170. FOR. 'i=1 TO an:PRINT i;".";:INPUT"Be 


trag: ",a(i):NEXT 
1180 IF-1=1. THEN 1190 ELSE 1200 


:1190 FOR iz1. TO an:x(i)=100/v*a(i):NEXT: 


GOTO 1210 : 
1200 FOR i=1 TO an:x(i)=v/100%a(i):NEXT 


.:1210 MODE 2:d=12-LEN(f$):e=24-LEN(e$):g= 


39-LEN(f#):h=52-LEN(e$):k=67-LEN(f$):0=8 
0-LEN(e$) 

1220 'LÖCATE c,1:PRINT d$:LOCATE c,2:PRIN 
T STRING$(LEN(d$), 45) 

1230 LOCATR d,3:PRINT f$;:LOCATE e,3:PRI 
NT. 69; :LOCATE :8,3:PRINT f$;:LOCATE h,3:P 
RINT e$;:LOCATE k,3:PRINT f$;:LOCATE 0,3 


"PRINT .e8 


1240 LOCATE 2;4:PRINT STRING$ (79,45) 


1250 14=1:3=>5:IF an=0 THEN an=400 

:1260 :FOR 'i=1i 'TO an 

:1270.LOCATE:2,J: PRINT USING" #444, ##4#.##" 
sali);:LOCATR .14,J:PRINT USING" ####,###. 
:48"”;x(i1): IF st=2 THEN 1300 ELSE 1280 


1280. LOCATE 27,5:PRINT"*";:LOCATE 29,5:P 
RINT USING”#4##,###.4#" ;a(i+20) ; :LOCATE 


42, J:PRINT USING"####,###.##" ;x(i+20);:L 
/OCATE 55,J:PRINT"#"; 


1290 LOCATE 67,3:PRINT USING" ####,###.#* 

";a(i+40):LOCATE 70,J:PRINT USING" ####, # 

44.48" ;x(i+r40).- 

1300 j=j+1:IF st=2 THEN 1320 ELSE 1310 

1310 IF i=20 OR i=80 OR i=140 OR i=200 O 

R i=260 OR i=320 OR i=380 THEN ii=i+t41:j 

=5:GOTO 1350 

1320 IF i=zan THEN ii=1:5=25:GOTO 1350 
1330 IF i=20 OR i=40 OR i=60 OR i=80 OR 

i=100 OR i=120 OR i=140 OR i=160 OR i=18 

0 OR i=200 THEN ii=i+1:5=5:GOTO 1350 
1340 NEXT 

1350 LOCATE 1,25:PRINT" Cur 

sor-Tasten '’Strich’ bewegen, Copy-Taste 

weiter! ® 

1360 xx=7:y=321:q=200 

1370 PLOT xx,y,1:DRAW q,y,1:INK 1,24 
1380 IF INKEY(2)=0O THEN PLOT xx,y,2:DRAW 
q,Y,2:INK 2,2:y=y-16:GOTO 1430 

1390 IF INKEY(0)=0 THEN PLOT xx,y,2:DRAW 
q,yJ,2:INK 2,2:y=y+16:GOTO 1430 

1400 IF INKEY(1)=0 THEN PLOT xx,y,2:DRAW 
94,Y,2:INK 2,2:q=q+224:xx=xx+224:GOTO 14 
30 

1410 IF INKEY(8)=0 THEN PLOT xx,y,2:DRAW 
q,Y,2:INK 2,2:q=q-224:xx=xx-224:GOTO 14 
30 

1420 IF INKEY(9)=-1 THEN 1430 ELSE 1440 

1430 FOR ai=1 TO 100:NEXT:GOTO 1370 


1440 PLOT xx,y,2:DRAW q,y,2:INK 2,2:LOCA 

TE 1,25:PRINT" Gesamte Tabelle drucken < 

1> Bildschirm ausdrucken <2> Weiter <3> 
Beenden <4>" 


1450 a$=INKEY$:IF a$="" THEN 1450 

1460 ON VAL(a$) GOTO 1700,710,1260,20 
1470 GOTO 1450 

1480 RESTORE 1530 

1490 FOR i=1 TO 42:READ f(i):NEXT 

1500 RESTORE 1560 

1510 FOR i=1 TO 42:READ m$(i),n$(i):NEXT 
1520 RETURN 

1530 DATA 25.4,0.03937,2.54,0.3937,12,0. 


0833,0.3048,3.281,36,0.0278,0.9144,1.093 
6,1609.34,0.00062 

1540 DATA 1.852,0.534,645.2,0.00155,144, 
0.00694,4046.86,0.00025,0.404686,2.471,3 
.78541,0.2642,4.54609,0.219 

1550 DATA 2.832,0.353,0.56826,1.76,1.136 
52,0.88,158.99,0.0063,0.27778,3.6,1.6093 
4,0.621,1.852,0.5399 

1560 DATA "Zoll","mm","mm","Zoll","Zoll" 
‚"cm","cm","Zoll","Fuss","Zoll","Zoll"," 
Fuss","Fuss","m","m","Fuss","Yard","Zoll 
"‚"Zoll","Yard","Yard","m","m","Yard","M 
eile","m","m","Meile","Seemeile","km","k 
m","Seemeile","Quadratzoll","Quadratmm" 
1570 DATA: "Quadratmm", "Quadratzoll","Qua 
dratfuss","Quadratzoll","Quadratzoll","Q 
uadratfuss","Acre","Quadratmeter","Quadr 
atmeter","Acre","Acre","Hektar","Hektar" 
‚"Acre","Gallone","Liter","Liter","Gallo 
ne","Gallone","Liter","Liter","Gallone" 
1580 DATA "Registertonne","Kubikmeter"," 


Kubikmeter","Registertonne","Pint","Lite 
r","Liter","Pint","Quart","Liter","Liter 
","Quart","Barel","Liter","Liter","Barre 


7“ s "km/h" ; "m/s" 5 "m/s" 5 "km/s", "mile/h" R "k 
m/h","km/h","mile/h","knoten","km/h","km 
/h","knoten" 

1590 RESTORE 1620 

1600 FOR i=1 TO 34:READ v$(i):NEXT 

1610 GOTO 1650 

1620 DATA "US-Dollar","US-Dollar","Pfund 
-Sterling","Pfund-Sterling","Ital.Lire", 
"Ital.Lire","Schwedenkronen", "Schwedenkr 
onen","Holl.Gulden","Holl.Gulden","Span. 
P’tas","Span.P’tas","Griech.Drachmen","G 
riech.Drachmen" 

1630 DATA "Franz.Franc","Franz.Franc","B 
elg.Franc","Belg.Franc","Daen.Kronen","D 
aen.Kronen","Norw.Kronen","Norw.Kronen", 
"Oester.Schilling","Oester.Schilling","S 
chweiz.Franken", "Schweiz.Franken" 


1640 DATA "Portug. Escudo","Portug. Escu 
do","Finnmark","Finnmark","Japan. Yen"," 
Japan. Yen"”,"Jugosl. Dinar","Jugosl. Din 
ar" 


1650 RESTORE 1680 

1660 FOR i=1 TO 34:READ vv$(i):NEXT 

1670 RETURN 

1680 DATA $,$,"#","#",Lit,Lit,skr,skr,hf 
l,hfl,Pts,Pts,Dr,Dr,FF,FF,Fbel,Fbel,dkr, 
dkr,nkr,nkr,oeSch,oeSch,sfrs,sfrs,Esc,Es 
c 

1690 DATA Fmk,Fmk,Yen,Yen,Dinar,Dinar 


1700 GOSUB 1760:ii=1 

1710 FOR i=ii TO an 

1720 PRINT#8,TAB(2)USING"####,###.##";a( 
i);:PRINT#8,TAB(14)USING"##H##, ###.##" ;x( 
i);:PRINT#8,TAB(27)"*";:PRINT#8,TAB(29)U 
SING" ####,###.##";a(i+60);:PRINT#8,TAB(4 
Z)USING"####,###.##";x(i+60);:PRINT#8,TA 
B(55)"x*"; 

1730 PRINT#8,TAB(57)USING"####,###.##";a 
(i+120);:PRINT#8,TAB(7O)USING"####, ###.# 
#";x(i+120) 
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1740 IF i=60 OR i=240 THEN PRINT#8:PRINT 
#8: PRINT#8:PRINT#8:PRINT#8: PRINT#8:ii=i+ 
181:GOSUB 1760:GOTO 1710 

1750 NEXT:GOTO 1450 

1760 PRINT#8,TAB(c) d$ 

1770 PRINT#8,TAB(c) STRING$(LEN(d$),45): 
PRINT#8 

1780 PRINT#8,TAB(d)f$;:PRINT#8,TAB(e)e$; 
:PRINT#8,TAB(g)f$; :PRINT#8,TAB(h)e$;:PRI 
NT#8, TAB(k)f$; :PRINT#8,TAB(o)e$ 


1790 PRINT#8,STRING$(80,45) 

1800 RETURN 

1810 GOSUB 1870:ii=1 

1820 FOR i=ii TO an 

1830 PRINT#8,TAB(1)USING"##,###,###.##"; 


a(i);:PRINT#8,TAB(20)USING"##, ###, ###.## 
";x(i); 

1840 PRINT#8,TAB(38)"*";:PRINT#8,TAB(43) 
USING" ##,###,###.##";a(i+60);:PRINT#8,TA 
B(63)USING"##, ###, ###.##";x(i+60) 

1850 IF i=60 OR i=180 OR i=300 THEN PRIN 
T#8:PRINT#8:PRINT#8:PRINT#8: PRINT#8:PRIN 
T#8:ii=i+61:GOSUB 1870:G0TO 1820 

1860 NEXT:GOTO 670 

1870 PRINT#8,TAB(c)d$:PRINT#8,TAB(c)STRI 
NG$(LEN(d$),45) :PRINT#8 

1880 PRINT#8,TAB(d)b$;:PRINT#8,TAB(e)c$; 
:PRINT#8,TAB(g)b$; :PRINT#8,TAB(h)c$ 

1890 PRINT#8,STRING$(80,45) 

1900 RETURN 


DISKETTENVERZEICHNIS 


110 ’ DISKETTENVERZEICHNIS 
Version 1.1 


(ce) 1986 by 


150 ’Farben 

160 INK 0,0:PAPER 0:INK 1,15:PEN 1:BORDE 
R 0:MODE 2 

170 ’Hauptmenue 

180 CLS: f=FRE(""):PRINT"DISKETTEN-INHALT 
SVERZEICHNIS" :PRINT:PRINT"by BIG BUG Sof 
tware","Version 1.0":PRINT:PRINT: PRINT 
190 PRINT"1 >>> Verzeichnis der Diskette 
n":PRINT:PRINT"2 >>> Inhaltsverzeichnis 
einer Disk":PRINT:PRINT"3 >>> Neue Diske 
tte aufnehmen": PRINT:PRINT"4 >>> Inhalt 
einer Diskette ergaenzen":PRINT:PRINT"5 
>>> Inhalt der Katalog-Diskette anzeigen 
"PRINT 

200 PRINT"6 >>> Diskette aus der Liste e 
ntfernen":PRINT:PRINT"7 >>> Datei auf Di 
skette entfernen":PRINT:PRINT"8 >>> Prog 
ramm beenden" 

210 LOCATE 1,24: INPUT"Was wuenschen Sie" 
;sw:IF w<1 OR w>8 THEN 210 

220 ON w GOTO 240,330,500,640,810,830,92 
0,1060 

230 ’Verzeichnis aller Disketten 

240 CLS:PRINT"Verzeichnis der Disketten" 
250 LOCATE 1,3:INPUT "Bildschirm (1) ode 
r Drucker (2)";s:IF s<1 OR s>2 THEN 250 
260 s=(s-1)#8:CLS:PRINT#s, "Verzeichnis d 
er Disketten" :PRINT#s 

270 PRINT#s,"Bezeichnung der Diskette";S 
PACE$ (46) ;"Datei" 

280 OPENIN "disks" 

290 DIM a$(0),b$(0O):LINE INPUT #9,a$(0): 
LINE INPUT #9,b$(0O):IF a$(0)="$$$" THEN 
ERASE a$,b$:GOTO 310 a 
300 leer=70-LEN(a$(0)):PRINT#s,a$(0);SP 
CE$(leer) ;b$(0):ERASE a$,b$:GOTO 290 

310 CLOSEIN:PRINT"Bitte Taste betaetigen 
...":CALL &BBO6:GOTO 180 

320 ’Inhaltsverzeichnis einer bestimmten 
Disk 

330 CLS:PRINT"Inhaltsverzeichnis einer D 
iskette" 

340 LOCATE 1,3:INPUT "Bildschirm (1) ode 
r Drucker (2)";s:IF s<1 OR s>2 THEN 340 
350 s=(s-1)%8 

360 LOCATE 1,5:LINE INPUT "Bezeichnung d 
er Diskette: ";name$ 

370 OPENIN "disks" 


09.01.1986 ’ 


120 ’ BIG BUG Software / 


380 DIM a$(0),b$(0):LINE INPUT #9,2$(0): 
LINE INPUT #9,b$(0O):IF as(0O)="$$$" THEN 


ERASE &$,b$:CLOSEIN:GOTO 470 

390 IF a$(O)<>name$ THEN ERASE a$,b$:GOT 

Oo 380 

400 datei$=b$(0):ERASE a$,b$:CLOSEIN 

410 CLS:PRINT#s,"Inhaltsverzeichnis der 

Diskette" :PRINT#s,name$:PRINT#s . 

420 PRINT#s,"Datei";SPACE$(15);"Bemerkun 
” 

430 OPENIN datei$ 

440 DIM a$(0),b$(0O):LINE INPUT #9,a$(0): 

LINE INPUT #9,b$(O):IF a$(0)="$$$" THEN 

460 

450 leer=20-LEN(a$(0)):PRINT#s,a$(0);SPA 

CE$(leer);b$(0):ERASE a$,b$:GOTO 440 

460 ERASE a$,b$:CLOSEIN:GOTO 480 

470 PRINT"Diskette ";name$:PRINT"nicht g 

espeichert.":PRINT 

480 PRINT"Bitte Taste betaetigen.":CALL 

&BBO6:GOTO 180 

490 ’Neue Disk in Datei aufnehmen 

500 CLS:PRINT"Neue Diskette aufnehmen":P 

RINT:PRINT:PRINT | > 

610 alt$="disks":neu$="scratch":OPENIN a 

lt$:OPENOUT neu$ 

520 DIM a$(0),b$(0):LINE INPUT #9,a$(0): 

LINE INPUT #9,b$(0):IF a$(0)="$$$" THEN 

540 

530 PRINT#9,a$(0):PRINT#9,b$(O):ERASE a$ 
‚b$:GOTO 520 

540 ERASE a$,b$:CLOSEIN 

550 LINE INPUT "Bezeichnung der Diskette 
: ",bez$:IF LEN(bez$)>60 THEN PRINT"Zu 1 

ang!";CHR$(7):GOTO 550 

560 PRINT:INPUT "Abkuerzung fuer Datei: 
"‚abk$:IF LEN(abk$)>8 THEN PRINT"Zu lang 
!"s;CHR$(7):GOTO 560 

570 abk$=UPPER$(abk$):OPENIN "disks" 

580 DIM a$(0),b$(O):LINE INPUT #9,a$(0): 

LINE INPUT #9,b$(0O):IF a$(0)="$$$" THEN 

ERASE a$,b$:CLOSEIN:GOTO 610 

590 IF b$(O)<>abk$ THEN ERASE a$,b$:GOTO 
580 


600 ERASE a$,b$:CLOSEIN: PRINT"Abkuerzung 
schon verwendet!";CHR$(7):GOTO 560 

610 PRINT#9,bez$:PRINT#9,abk$:PRINT#9,"$ 
$$":PRINT#9,"$$$":CLOSEOUT:öÖERA, Salt$:öR 

EN,Salt$,8neu$ 


9:0: +0: 30.50: 305. 10.9.0. 090.8 8 9:19 0:0 0 O0 90 
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DISKETTENVERZEICHNIS 


Ein Programm für alle CPCs, das Ordnung in 
Ihre Sammlung bringt! 


Das Verzeichnis kann (unter AMSDOS) soviele 
Disketten verwalten, wie die Speicherkapazität 
einer Disk das zuläßt. Wenn Sie das Programm 
verwenden wollen, müssen Sie die Dateidis- 
kette erst durch folgende Befehle vorbereiten: 


OPENOUT "disks" 
PRINT #9, "$$$" (2x eingeben! ) 
CLOSEOUT 


Danach speichern Sie am besten das 
Diskettenverzeichnis mit: 


SAVE "INHALT 
Der Aufruf 
RUN "INHALT 


bewirkt dann die Anzeige eines Menues, das 
folgende Punkte anzubieten hat: 


1. Verzeichnis der Disketten 


Gibt auf dem Bildschirm oder Drucker eine 
Liste aller gespeicherten Disks aus. Zu jeder 
"Scheibe" gehören eine Bezeichnung und ein 
Dateiname unter dem das Programm die ge- 
nauen Angaben zur betreffenden Disk findet. 


2. Inhaltsverzeichnis einer Disk 


Gibt den Inhalt der angegebenen Diskette aus. 
Die Filenamen sind alphabetisch geordnet 
untereinander aufgelistet. Zu jedem File 
gehört außerdem ein bis zu 60 Zeichen langer 
Kommentar. 


3. Neue Diskette aufnehmen 
Diesen Punkt müssen Sie wählen, wenn eine 


neue Disk hinzukommen soll. Achten Sie 
darauf, daß die Bezeichnung nicht schon ver- 


geben ist! Beim Dateinamen überprüft das 
Programm dies automatisch, da sich hier 
leichter zwei gleiche Abkürzungen ein- 
schleichen 


4. Inhalt einer Diskette ergänzen 


Geben Sie den Dateinamen (suffix, z.B. 


'BAS", nicht vergessen!) und danach einen 
erläuternden Kommentar ein. Der Filename 
wird automatisch in Großbuchstaben umge- 
wandelt. Beispiel: File "AKTIV86.DAT", 
Kommentar "Jahresinhaltsverzeichnis 
SCHNEIDER -aktiv" 


5. Inhalt der Katalog-Diskette anzeigen 


Führt einen CAT-Befehl aus und soll Sie vor 
unliebsamen Überraschungen (z.B. "Disc full") 
schützen. Kalkulieren Sie den Speicherplatz 
immer großzügig, da v.a. beim Einfügen von 


Datensätzen oft mit Hilfsfiles gearbeitet 
werden muß! 

6. Diskette aus der Liste entfernen 

Löscht die Diskette mit der angegebenen 


Bezeichnung, z.B. wenn Sie einmal versehent- 
lich das Brötchen ins Laufwerk geschoben und 
die Disk in den Kaffee getunkt haben. 


7. Datei auf Diskette entfernen 


Sollten Sie einmal auf einer Disk eine Datei 
löschen oder diese "irgendwie" zerstört werden 
(Fehlbedienung, Zigarettenasche oder Coca- 
Cola), so ist dieser Menuepunkt zu wählen. Er 
ermöglicht aber auch Änderungen nach dem 
Verfahren "Falsches raus - Richtiges rein!" 


8. Programm beenden 


Werden Sie wohl irgendwann einmal müssen. 
Spätestens dann, wenn das Laufwerk glüht. 


Allgemeines 

Die Abb. zeigt den Inhalt einer Diskette des 
Autors. Überall da, wo Sie schwarze Balken 
sehen, wurde Schleichwerbung für die Kon- 
kurrenz bzw. Weitergabe "personenbezogener 
Daten" verhindert. 

Das Programm arbeitet rein diskettenorien- 
tiert, wobei versucht wurde, String-Müll zu 
vermeiden. Daher die vielen ERASE-Befehle, 
die leider eine unwillkommene Nebenwirkung 
haben: Gelegentlich verwechselt der CPC 
String-Teile beim Eröffnen einer Datei und 
datei$=datei$:OPEN... datei$ 

das genannte Problem in den meisten Fällen 
vermeidet. (Ertl) 
PETTERTEETERTERTERTERFERTERFERELLETLELESTE US KIA GE 


DISKETTENVERZEICHNIS 


620 OPENOUT abk$:PRINT#9,"$$$":PRINT#9," 
$$$":CLOSEOUT:GOTO 180 

630 ’Inhalt einer Diskette ergaenzen 

640 CLS:PRINT"Inhalt einer Diskette erga 
enzen" 

650 LOCATE 1,3:LINE INPUT "Bezeichnung d 
er Diskette: ",‚name$ 

660 OPENIN "disks" 

670 DIM a$(0),b$(O):LINE INPUT #9,a$(0): 
LINE INPUT #9,b$(O):IF a$(0)="$$$" THEN 
ERASE a$,b$:CLOSEIN:GOTO 790 

680 IF a$(O)<>name$ THEN ERASE a$,b$:GOT 
oO 670 

690 alt$=b$(O):neu$="scratch":ERASE a$,b 
$:CLOSEIN 

700 OPENIN alt$:OPENOUT neu$:CLS:PRINT"I 
nhalt einer Diskette ergaenzen" 

710 LOCATE 1,3:INPUT "Dateiname: ",‚dat$: 
IF LEN(dat$)>12 THEN PRINT"Zu lang!";CHR 
$(7):GOTO 710 

720 dat$=UPPER$(dat$):PRINT:LINE INPUT " 
Bemerkung: ";bem$:IF LEN(bem$)>60 THEN P 
RINT"Zu lang!";CHR$(7):GOTO 720 

730 eintrag=0 

740 DIM a$(0),b$(0O):LINE INPUT #9,a$(0): 
LINE INPUT #9,b$(0O):IF (a$(O)>dat$ OR a$ 
(0)="$$$") AND NOT eintrag THEN PRINT#9, 
dat$:PRINT#9,bem$:eintrag=-1 

750 PRINT#9,a$(0):PRINT#9,b$(0) 

760 IF a$(O)<>"$$$" THEN ERASE a$,b$:GOT 
oO 740 

770 ERASE a$,b$:CLOSEIN:CLOSEOUT:ÖERA, Sa 
lt$:öREN,8alt$,8neu$ 

780 PRINT:PRINT:PRINT:INPUT "Weitere Ein 
tragungen fuer diese Diskette? J/N : ",j 
n$:IF UPPER$(jn$)="J" THEN 700 ELSE 180 
790 PRINT:PRINT"Diskette ";name$:PRINT"n 
icht gespeichert.":PRINT:PRINT"Bitte Tas 
te betaetigen.":CALL &BBO6:GOTO 180 

800 ’Inhaltsverzeichnis der Katalogdiske 
tte 

810 CLS:PRINT"Inhaltsverzeichnis dieser 
Diskette:":CAT:PRINT"Bitte Taste betaeti 
gen.":CALL &BBO6:GOTO 180 

820 ’Diskette aus der Liste entfernen 
830 CLS:PRINT"Diskette aus der Liste ent 
fernen" 

840 LOCATE 1,3:LINE INPUT "Welche Disket 
te soll entfernt werden? ",‚name$ 

850 alt$="disks":neu$="scratch":OPENIN a 
lt$:OPENOUT neu$ 


Inhaltsverzseichnis Jer Diskettsa 


860 entfernt=0:WHILE NOT EOF:DIM a$(0),b 
$(O):LINE INPUT #9,a$(0):LINE INPUT #9,b 
$(0O):IF a$(O)<>name$ THEN PRINT#9,a$(0): 
PRINT#9,b$(0) ELSE abk$=b$(O):entfernt=- 
1 

870 ERASE a$,b$:WEND:CLCSEIN:CLOSEOUT:öE 
RA.Salt$:öREN, Salt$,8neu$ 

880 IF entfernt THEN ÖöERA,Sabk$ 

890 PRINT:PRINT"Die Diskette wurde ";:IF 
entfernt THEN PRINT"aus der Datei entfe 
rnt." ELSE PRINT"nicht in der Datei gefu 

nden." 

900 PRINT"Bitte eine Taste betaetigen.": 

CALL &BBO6:GOTO 180 

910 ’Datei auf Diskette entfernen 

920 CLS:PRINT"Datei auf Diskette entfern 
en" 

930 LOCATE 1,3:LINE INPUT "Bezeichnung d 
er Diskette: "‚name$ 

940 OPENIN "disks" 

950 DIM a$(0),b$(O):LINE INPUT #9,a$(0): 
LINE INPUT #9,b$(O):IF a$(0)="$$$" THEN 
ERASE a$,b$:CLOSEIN:GOTO 1030 

960 IF a$(O)<>name$ THEN ERASE a$,b$:GOT 
oO 950 

970 alt$=b$(O):neu$="scratch":ERASE a$,b 
$:CLOSEIN 

980 PRINT:LINE INPUT "Name des zu entfer 

nenden Files: ",bez$ 

990 bez$=UPPER$(bez$):entfernt=0:0PENIN 

alt$:OPENOUT neu$ 

1000 WHILE NOT EOF:DIM a$(0),b$(0):LINE 
INPUT #9,a$(0O):LINE INPUT #9,b$(O):IF a$ 
(O)<>bez$ THEN PRINT#9,a$(0):PRINT#9,b$( 
0) ELSE entfernt=-1 

1010 ERASE a$,b$:WEND:CLOSEIN:CLOSEOUT:ö 

ERA,Salt$:öREN,Salt$,Sneu$ 

1020 PRINT:PRINT"File "‚,bez$:IF entfernt 
THEN PRINT"aus Inhaltsverzeichnis geloe 

scht.":GOTO 1040 ELSE PRINT"nicht im Ver 

zeichnis gefunden.":GOTO 1040 

1030 PRINT:PRINT"Diskette nicht im Verze 
ichnis enthalten." 

1040 PRINT"Bitte Taste betaetigen.":CALL 
&BBO6:GOTO 180 

1050 ’Programm beenden 

1060 dat$="%.bak":öERA,Sdat$ 

1070 CLS:PRINT"Auf Wiedersehen...'":PRINT 
:PRINT:PRINT"(c) 1986 by BIG BUG Softwa 
re":LOCATE 1,24:END 


BASIC 1 

Datei Bemerkung 

ADRESS.DAT Demo zu DISCDAT.BAS (Datei; Adressbuch) 

ADRESS.MAS Demo zu DISCDAT.BAS (Dateimaske) 

ALLLIST.BAS Formatiertes Listing von LISTING.$$$ fuer alle Druckertypen 
APFEL.BAS "Apfelmaennchen"; Grafikprogramm 

ARTIST.BAS Menue und Startpgm. fuer PAINTER.BAS und GRAFGEN.BAS 
BAYERN.DAT Demo zu DISCDAT.BAS (Teildatei von ADRESS.DAT) 

BOLD Demo-File zu GRAFGEN.BAS (Zeichensatzdef. f. Grossbuchst.) 
DEPRO.BAS Programm zum Kopieren von Protected-Files 


DISCDAT.BAS 
DREIECK.BIN 
DREIECK.I 
GARDEN.BAS 
GRAFGEN.BAS 
HEADER.BAS 
INHALT.DIS 
JJ.BAS 
KREIS.BAS 
LINELIST.BAS 
LISTFORM.BAS 
MINITEX.BAS 
NLQLIST.BAS 
NSPEECH.BAS 
PAINTER.BAS 
PLAKAT.BIN 
PLAKAT.I 
PROJECT.BAS 
PROJECT .HOF 
RAIN.BAS 
RONNY.BAS 
SCHWER .BAS 
SCRIPT 
SHELL.BAS 
SHORT.BAS 
SHOW.BAS 
STERN.BAS 


Dateiverwaltung unter AMSDOS (leicht gigantomanisch!) 
Demo-File zu PAINTER.BAS (Bildinformationen) 

Demo-File zu PAINTER.BAS (Farbinformationen) 

"Moonshine Garden”; ‚Grafikdemo in BASIC 

Zeichen- u. Grafikeditor; wird gestartet m.H.v. ARTIST.BAS 
Header-Analysator fuer Cassette 

Inh.verz. f. DISCDAT.BAS (wird von diesem Pgm. benoetigt!) 
Spielt Melodie "Jim Jones"; Abbruch mit ESC-ESC 
Grafikdemo: Kreis mit "Strahlen" in 3 Farben 

Erzeugt Listings mit unterstrichenen BASIC-Woertern 

Druckt formatiertes Listing (jeder Befehl = 1 Zeile) 
Eingabe von Manuskripten fuer SCHNEIDER aktiv 

Druckt BASIC-Listing in NLQ-Qualitaet - mit einigen Extras 
Aussprache bis zu 9-stelliger Zahlen auf dk’tronics-Synthi 
Malprogramm; wird gestartet mit Hilfe von ARTIST.BAS 
Demo-File zu PAINTER.BAS, Bildinformationen 

Demo-File zu PAINTER.BAS, Farbinformationen 

Spiel "The Project"; 3 Screens, Titelgrafik, Hall Of Fame 
"Hall Of Fame" zu PROJECT.BAS 

Spielt Melodie "Singing In The Rain" (mit Grafik) 

"Ronny’s Maze": Run&Jump-Spiel mit Spielegenerator 
Schwerpunkt eines Dreiecks; mit Grafik. 

Demo-File zu GRAFGEN.BAS (Symbole fuer PAINTER) 
Grafikdemo: Muschel (basiert auf KREIS.BAS) 

Belegt Ziffernblock gemaess Etikettierung 
Vorfuehrprogramm fuer die Bilder DREIECK und PLAKAT 
Grafikdemo: Stern aus Quadraten 


Ein einmaliger SCHNEIDER-aktiv Service: 

In Zusammenarbeit mit der führenden unabhängigen englischen AMSTRAD-Fachzeitschrift 
"Computing with the Amstrad" bietet SCHNEIDER-aktiv seinen Lesern die Möglichkeit eines 
Kombi-Abos: 

"SCHNEIDER-aktiv" 
zusammen mit der englischen AMSTRAD-Fachzeitschrift 


"COMPUTING with the AMSTRAD" 


A Database Publication. 3) 


y voräno.d ı.“ 
: Jume 1888. ce} 


ws 


nt.magazine for Amstrad computer users ; 


 LUSHPHN.. 


thexgame that dares 
iiescape the maze 


nF 


BAMX Mouse and 
®Toolkit reviewed 

“How to use your \ 
Dynamic Debugger N 


+ Basic and’ Forth/for beginners ' 


Doppel-Abo-Bedingungen: 


m Doppel-Abo-Preis: Westdeutschland und Berlin DM 130,- (Europäisches Ausland DM 150,-) 

m Bisherige SCHNEIDER-aktiv Abonnenten können "Computing with the Amstrad" nachbuchen: Bitte geben Sie dazu den 
Monat des Erstbezugs an und das Datum der Zahlung (evtl. Zahlungsbeleg) - Sie erhalten eine Rechnuug über die 
Restlaufzeit des ABO-Jahres. 


m Es gelten die SCHNEIDER-aktiv Abo-Bedingungen (siehe Seite 80). Bestellen Sie mit dem Vermerk: "Doppel- Abo" 
Verlag COMPUTER-aktiv - Sigrid Gigge - Schneefernerring 4 
8500 Nürnberg 50 


SOFT-BOX-SERVICE 


akt 


= Kae DM 20,- D_ ‘a 3" Diskette DM 30,- 


(incl. Porto und Verpackung) nn Porto und Verpackimg) 


"Big Letter ı Clock 464 Eossdiae a ar 
Planetensysteme ASCII Bilddateien = ea APE Mi 
CPC Miniorgel 36 RSX BEFEHLE : ; 2 


Terminalprogramm Clearstick x pt TESTBIED 


PROGRAMM-TOOL 
ea Lineinput Dataram VOKABEL-TRAINER 


MATHE MIT DEM CPC HAPPY- TIP = CONTROL-P DISKEDIT 
DISKETTENMONITOR: D-MONI = CLEARLIST VERHALTENSPROFILE 
PROGNOSE GEWICHT = BASIC + 3 CROSSREFERENZ 
FUSSBALL-BUNDESLIGA VEREINSLIGA = TABELLEN DISKETTENVERZEICHNIS 


M Versand nicht per Nachnahme bezw. Rechnung 
M bestellen Sie direkt schriftlich beim Verlag 
M keine telefonischen Bestellungen 
M Versand nur gegen Vorauszahlung 
(Scheck - kein Nachnahmeversand) 


Verlag COMPUTER-aktiv - Sigrid Gigge - Schneefernerring 4 
8500 Nürnberg 50 


SOFT-BOX-SERVICE 


= Schneider 4 
0 akti 0 


(incl. Porto und Verpackung) 


" . 

= 3" Diskette DM 30,- 
Gi Porto und se 

M - Weg mit dem Listschutz auf dem CPC - Sprungtabellen für Basic-Programme & R 
- Spekulieren mit dem CPC - Komfortable Diskettenbefehle - Kreditvergleich 

= - Druckerausgabe umgeleitet - Transferprogramm m - Kassetten- Analys 


- Druckertreiber für den CPC 464 

- Wie alt werde ich 
e Programm - Datei-Informations und Copier-System 
- Adressverwa ltung - Kuchendiagramme = - RAM-Editor (Hex-Monitor) 
- Großbuchstaben auf dem CPC 5 j 


- Inkey - Basic XREF - DATA-Zellengenerator - TURBO-SCREEN 

- Dump - Silvestermenue < r - Vokabeltrainer ..-= TRANS COPY 2000 

- Tast-Def - Kalender = - SFORMAT.COM - "DATABANK”" 

- Rec, Save, Load - Prognose en - Firmware CPC und CP/M = Drucker laufen lernen 
- SYMBOL MANAGER - Griech. Zeichensatz 


- UHRZEIT-PROGRAMM - TURBO-CIRCLE 
- FAST-LADER - RSX-BEFEHLE 
- SCREEN-SWAP - DREIECKE FÜLLEN 


GRAFIX - ZAHLEN SCHIEBEN 
- SCHIFFE VERSENKEN - SPACE SHUTTLE 


- SORT - STURZFLUG 


m versand nicht per Nachnahme bezw. Rechnung 
m bestellen Sie direkt schriftlich beim Verlag 
M keine telefonischen Bestellungen 
m Versand nur gegen Vorauszahlung 
(Scheck - kein Nachnahmeversand) 


Verlag COMPUTER-aktiv - Sigrid Gigge - Schneefernerring 4 
8500 Nürnberg 50 


77 SOFT-BOX-SERVICE 


HÄNDLER INFO 


Ihr kompetenter, autorisierter 
et RICHARD CHNEIDER-Fachhändler 


AEINRICH 


& SOHN N "COMPUTER GMBH 


7480 Sigmaringen-Rapp-Gässle» Tel. 075 71/12483 
Hard- u. Software - Peripherie - Literatur 


Winnender Str. 25-7054 Korb-Tel. 32513 


CPC-Hardware und Software 


ie Als GE-ELECTRONICS 
au nl GIGGE- 
Ihr Fachhändler Rn ee Schneefernerring 4 


8500 Nürnberg 50 
Tel. 0911/84244 


DATALOGIC 


COMPUTERSYSTEME 

Atari ST 

CUMANA 

SCHNEIDER Hard- u. Software 
VORTEX VERKAUF 

DATA MEDIA BERATUNG 


INFOS gegen DM 2.40 SERVICE 
CALENBERGER STR. 26 
3000 HANNOVER 1 


8170 Bad Tölz - Marktstr. 38 - Tel. 08041/9739 a 


Ihr kompetenter, autorisierter 


el -Fachhändler 


Aidenbach Tel: 0 85 43/880 Hard- u. Software, Peripherie, Literatur 
Orten bu rg Tel: 085 42/78 66 i Fachkundige Beratung - kompletter Service 


7700 Singen, Freibühlstraße 21-25, Tel. 0 77 31/8 20 20 


ALLES FÜR DEN CPC 


STAUBSCHUTZ ist wichtig! 
Hauben aus reißfestem, weichen Kunstleder für alle 


*Beratung*Hardware*Software*Service 
Computer, Drucker, Floppy’s, Monitore ... 
z.B.: für CPC 464 + Monitor zusammen DM 30,-- 


Info mit Materialmuster 80 Pfg-Briefmarken (Cebuli 


Händleranfragen erwünscht! FUNK +FERNSEHTECHNIK 
B.V. Steponaitis, Obere Str. 30, 8720 Schweinfurt 8939 Bad Wörishofen 


Weiherweg 4 - Tel. 08247/2171 


HANDLER-INFO 


ERNST TAUBENBERGER 


COMP »* 


KR “SOFT Weißenburger Straße 25 - 8900 Augsburg 


Software 


Händlerangebote erwünscht 


Softwareautoren gesucht 


akt 


A+G6 Vertrieb, 1 Berlin 44, Emser Str. 18 


„alles für die Schneider-Computer! 


STONE Terginal 
Ss 


LONPUTER DIVISINN 


Li Hardware 

Schneider :.:... 
COMPUTER DIVISION Literatur 
1 Berlin 44, Karl-Marx Str. 243 030-6841098 


Woltermann - Electronic 
Computer - Datentechnik eve 


Ihr Fachhändler für Schneider-Computer r Adol- nr 
Gute Beratung - qualifizierter Service sallee v -65 bisz ei ra 737073 
Große Auswahl an Zubehör und Fachliteratur Konıg 


4000 Dussel 
3414 Hardegsen / Solling Lange Str.27 Tel. 05505/1694 


Computer Reschke GmbH 
Hohe Str. 2la - 4600 Dortmund | 
BTX 92 15 09 Ruf 0231/16 00 14 
Wir führen Schneider 
und Zubehör 
eigener 48 Std. Service für alle Home-Computer und 

Zubehör 


mihler 
4796 Salzkotten/W 


Lange Straße 27-29 


wir führen : 
hneider 
DATA BECKER 


data media 


IHR Computerfachhändler im Raum Koblenz/ 
Bonn/Neuwied 

Wir verkaufen nicht nur, sondern wir beraten Sie ausführlich. 

Unsere Werkstatt paßt bereits vorhandene Hardware an. 


"BrTE ME" COMPUTERSYSTEME 


Hardware-Software-Literatur-Zubehör zu Bombenpreisen 
für den Schneider und andere Systeme 


EREISHSLE-AnTordern Interessante Konditionen für Schüler, Schulen und Sammel - 


besteller. Fordern Sie unsere Preisliste an 


IRP - COMPUTERSYSTEME - KLEPPER 


Wilhelmstraße 27 - 5461 St. Katharinen - Telefon 02645/540 


WILHELMSTRASS 7 
5240 BETZDORF/SIEG 
TEL. 02741 - 23537 & 23107 


Modulare Software , 
für alle Schneider Rechner 
CPC 464, CPC 664, CPC 6128 7 


„. Textverarbeitung... Kassenbuch- hard-&software 
führung... Rechnungsschreibung... Ch. Schebesta & Partner 
Kundenadressverwaltung... Mailmerge Frankfurter Str. 70, 6078 Neu-Isenburg 


.. Hotelreservierung... Telefon 06102 / 37549 


Beratung+Software+Hardware+Programmierung 


Computer u. Bürotechnik 
Dipl.-Ing. Neuderth 
Frankfurter Straße 23 / Ecke Friedensplatz 


O 
Lu 
= 
c£ 
un 


6090 Rüsselsheim 


Tel. 06142 - 6 84 55 


Beratung, Schulung, Programmierung, Software der Marken 


mca CC, Sindelfinger Allee 1, 7030 Böblingen, 07031/223618 


79 HAÄNDL 


Rufnummern 


-USER- F . 
CPC-USER-Clubs Am Ball bleiben ... 
PCW-USER-Clubs ... Mit einem 

PLZ 1000 BERLIN: Tel. 030/ 8227750 
PLZ 2000 HAMBURG: Tel. 040/ 5401424 
PLZ 2000 HAMBURG: __nur JOYCE! Tel. 040/ 4917554 
PLZ 2000 HAMBURG: Tel. 040/ 6932033 
PLZ 2190 CUXHAVEN 1: Tel. 04721/ 22299 
Mailbox: 04721/ 62600 
PLZ 2300 KIEL: Tel. 0431/ 527125 n 
PLZ 2320 PLÖN: Tel. 04522/ 4643 Schneider 
PLZ 2390 FLENSBURG: Tel. 0461/ 35170 = 
PLZ 2400 LÜBECK: Tel. 0451/ 491151 akt 
PLZ 2908 FRIESOYTHE: Tel. 04491/ 2614 
PLZ 2842 LOHNE: Tel. 04442/ 71546 
PLZ 3000 HANNOVER Tel. 0511/ 281172 
PLZ 3500 KASSEL: Tet. 0561/ 103805 
PLZ 3590 BAD WILDUNGEN: Tel. 05621/ 1322 
PLZ 4182 UEDEM: Tel. 02825/ 8665 N 
PLZ 4193 KRANENBURG: Tel. 02826/ 5470 (4 
PLZ 4200 OBERHAUSEN] Tel. 0208/ 845366 N \ 
PLZ 4280 BORKENGEMEN: Tel. DEMNÄCHST 
PLZ 4800 BIELEFELD: Tel. 0521/ 887970 
PLZ 4836 HERZEBROCK-CLARHOLZ: Tel. 05245/ 6120 
PLZ 4503 DISSEN: Tel. 05421/ 5183 
PLZ 4630 BOCHUM 1: Tel. 0234/ 596504 
PLZ 4800 BIELEFELD 1: Tel. 0521/ 887970 mungen 
PLZ 4830 GÜTERSLOH: Tel. 05241/ 36350 s ist mühselig, 
PLZ 5010 BERGHEIM: Tel. 02271/ 61775 der neuesten SCHNEIDER-aktiv am Kiosk nachzulaufen 
PLZ 5132 ÜBACH-PALENBERG: Tel. 02451/ 46608 
PLZ 5138 HEINSBERG 1: Tel. 02452/ 5710 m Es ist ärgerlich, 
PLZ 5140 ERKELENZ 4: ___ Tel. 02435/ 2518 wenn SCHNEIDER-aktiv schon vergriffen ist 
PLZ 5400 KOBLENZ: Tel. 0261/ 71169 
PLZ 5630 REMSCHEID: Tel. 02191/ 65121 N 


Mm Da gi nce 
PLZ 5630 REMSCHEID: Tel. 02191/ 68571 a gibt es nur eines: 


PLZ 6300 GIEBEN: Tel. 0641/ 43287 x SCHNEIDER-aktiv sofort abonnieren 

PLZ 6330 WETZLAR: Tel. 06441/ 48652 

PLZ 6352 OBER-MÖRLEN: Tel. 06002/ 396 ABO-BEDINGUNGEN: 

PLZ 6382 FRIEDRICHSDORF: Tel. 06172/ 79355 

PLZ 6600 SAARBRÜCKEN: Tel. 0681/3022098 m SCHNEIDER-aktiv Jahres-ABO frei Haus 60,- DM 
PLZ 6927 BAD RAPPENAU: Tel. 07264/ 7702 (Bundesgebiet und West-Berlin) 

PLZ 7000 STUTTGART 1: Tel. 0711/ 766942 Abo-Preis j kisch 0 
PLZ 7063 WELZHEIM: Tel. 07182/2192 reis im europäischen Ausland 70,- DM. 

PLZ 7129 TALHEIM: Tel. 07133/ 6799 

PLZ 7250 LEONBERG 6: Tel. 07152/ 21882 - M Das Abonnement verlängert sich automatisch um 1 Jahr, 
PLZ 7311 HOCHDORF: Tel. 07153/ 58279 wenn es nicht spätestens 4 Wochen vor Ablauf schriftlich 

PLZ 7420 MÜNSINGEN: Tel. 07381/ 2947 gekündigt wird. 

PLZ 7500 KARLSRUHE: Tel. 0721/ 472273 

PLZ 7600 OFFENBURG: Tel. 0781/ 78268 u Abo-Bestellungen können innerhalb von 8 Tagen schriftlich 
PLZ 7800 FREIBURG/Br.: Tel. 0761/ 891448 widerrufen werden. 

PLZ 7894 STÜHLINGEN: Tel. 07744/ 5002 

PLZ 7909 DORMSTADT: Tel. 07348/ 22638 m ABO-Bestellung ganz einfach: 

PLZ 8000 MÜNCHEN: Tel. 089/ 5701431 Scheck mit vollständiger Zustellanschrift und dem Vermerk: 
PLZ 8156 OTTERFING: Tel. 08024/ 2410 

PLZ 8201 SCHECHEN:_ 2 Tel. 080397 3237 SCHNEIDER-akLiv Abo ab nächster Ausgabe” 
PLZ 8670 HOF/SAALE: Tel. DEMNÄCHST . 

PLZ 8900 AUGSBURG: Tel. 0821/ 573873 

PLZ 8941 ERKHEIM: Tel. 08336/ 7105 e 

PLZ 8998 LINDENBERG/ALLGÄL:_ Tel. 08381/ 7468 | Verlag COMPUTER-aktiv 

A 1020 WIEN/AUSTRIA: Tel. WIEN/ 26360 Sigrid Gigge 

EB Schneefernerring 4 


(Aufstellung wird fortgesetzt Einträge sind kostenlos) 8500 Nürnberg 50 


EERRRSRRRRLERERLLBEEFEFERRERSFEERELESS EEE S LARNen) DE 5 


Kleinanzeigen 


BEE IE IE EEE EEE NENNEN NENENUNEK | ei man zit 


CPC464 CPC664 CPC6128 USER! 
Lichtgriffel 
m mit Programmen und 
m deutscher Anleitung 
nur DM 49, - 
Versand gegen Scheck/Nachnahme 
Info gratis! Fa. Schißlbauer 
Postfach 1171S 8458 Sulzbach 
Tel.: 09661/6592 bis 21 Uhr 
BREI IE DEE IE EEE EEE EEE 3 EEE EEE EEE 3 S ME ENENE 


EEESEEEZZEIZZ STOCKMASTER IH---------------- 
Das CPC-Programm für echte Börsengewinne. Diskette 
nur 485,- DM/SFr. Beschreibung 'ca02' anfordern bei: 
Töngi Computer-Praxis, Aspeltstr.4, D-6500 Mainz. 
für die Schweiz: Denton Consultants AG, 
Auwisstr. 17, CH-8127 Forch/Zürich. 
DOES IE DE DE DEE DE DEE DE DE EEE BE EEE EEE EEE EEE EEE EEE DE EEE BE EEE ODE EINE 
VERK. CPC 464, DD1, NLQ 401, TexPack, TURBO PASCAL, 
compl. 2.200 DM, CPC 664 1200,-; Tel. 09131/25873 
3030630638 DD 0 U 30 EEE EEE EEE EEE EEE EEE EEE 


werProfessionelles Astrologie- Programm***** 
5 Seiten Persönlichkeitsanalyse + Grafik + Aspekt 
B.Schuhmacher 
Karl Zeiss Str. 14 
3200 Hildesheim 
Tel. 05121/23646 
BEE DEE DE EEE EEE EEE EEE EEE EEE EEE 
SÄMTL. CPC-BÜCHER V. DATABECKER FÜR 50% LADENPREIS 
+ PORTO, ALLE BÜCHER LADENNEU 
H-J.KROLL, AN DER KOPPE 73c 1/20 TEL.(030)3335432 
DREHEN EEE DEE EEE EEE EEE ED EEE 


CPC464 LOTTO-STATISTIK 
Wollten Sie nicht schon immer alle Ziehungen im 
Lotto untersuchen? Z2.B. feststellen, welche 
Gewinnklassen Sie errreicht hätten, wenn Sie von 
Anfang an (1955) gespielt hätten? Oder Ihr System 
einem Realtest unterziehen? Mit diesem Programm kein 
Problem: Ergebnis mit Gewähr in 12 sec (MC) | Kass. 
45,-- (E-Scheck oder +NN) Prg. kopiert sich auf 
Disc! Info: 1,-- Briefm. 
Günter Blatt 5509 Schillingen 
BOCDE DE DEE DD EEE 0 00 0 EEE EEE BE EEE EEE EEE OEEEE 
Suche Grünmonitor GT65-Tausche mit en dBasell 
Klimmig 07841/61140 ab 18 Uhr 07842/3248 
BRD DD EEE EEE EEE EEE 3 EEE EEE EEE EEE OBEN 
Für alle CPCs-12 Spiele 
auf Kassette DM 20,- (Disc 30,-) 
Schein/Scheck an: 
H. Behrend, Neustadt 3, 3550 Marburg 
BREI EEE EEE EEE EEE EEE 
Preisgünstige Software aus Eigenentwicklung 
für alle Schneider-CPC-Computer 
erhalten Sie bei: 
Friedrich Neuper Postfach 72, 8473 Pfreimd 
Einfach Gratisinfo anfordern. 
DREHEN NEE ED EEE EEE EEE 3 EEE EEE EEE EA 


V24 Interface 
m Zweifach V24/RS232 mit _DC/DC 
m Mit Z80OA-DART, Timer 8253 
ws Für alle CPC. Maße 118x62x26 mm 
m Preis: ab DM 248, - 


Gundermann Mikroelektronik Lessingstraße 7 
Tel.: 06227/52394 7 St. Leon-Rot 
EEELERERTTTERETERERTERTEEFESERFEFEREEFEREREETET LO 7 E} 


Flugtraining Boeing-727 Simulator 
für denSchneider CPC 464 
sm zur Anfänger-Schulung 5 
m zur Instrumentenflug-Schulung geeignet 
m detaillierte Auswertung der Flüge 
Kassette 34 DM - Info gegen Rückporto. 


Fluging. F. Jahnke - Am Berge 1 3344 Flötho 1 
Tel.: 05341/91618 
BREEIKNENE N NEE E EEE EEE 3 3 3 DE EEE 3 EEE EEE BE ODE 


Suche: KREUZWORTRATSEL-Programm 
s für Schneider CPC 464, 664 oder 6128 
m füe den PCW 5256 oder PCW 8512, 
m für den IBM bezw. deren Kompatible 
suche ich ein Programm, mit dem man Kreuzworträtsel 
erstellen kann 
. Chiffre 08681 
3630 DIDI DE DD DE EEE EEE EEE EEE 3 DEE EEE EEE EEE EBENE EEE 


BAEEEREIE NEED EEE EEE EEE EEE EEE EEE EEE EEE OK 
Jedes Orginal Programm nur 3,- DM bei: 

M.Schlarmann Heinrichstraße 18, 2843 Dinklage 

Liste gegen 6,50 DM Rückporto Nur auf Tape. 


BRREEENE NEE EEE NEE IE EEE EEE EEE EEE EEE EEE EEE EEE EEE OEENEIG 


Notenverwaltung für die Schule! 
s Berechnet Schnitt 
m Noten mit Wichtung 
m Noten und Klasssenlisten 
m Zeugnisnoten 
m Druck und Bildschirmausgabe 
Unkosten-Beitrag 50,- DM 
Cass/Disc (Disc einsenden) 


Info (Freiumschlag) 
C. Berhold Rommelstr. 31 - 8783 Hammelburg 2 
BERKER EIKE NEE EEE EEE EEE EEE EEE ONE 
Handbuch für Datenfernübertragung mit vielen Tricks 
gegen Unkosten Info 80 Pf 
Leonhardt Auf der Reide 39 -4000 Düsseldorf 
DREIER EEE IE IE EEE EIER DE DE DE EEE EEE EEE EEE EEE EEE EEE EEE 
SCHNEIDER-aktiv sucht aktive Mitarbeiter 
j im Raum NÜRNBERG 
Bitte schreiben Sie uns:Stichwort "Mitarbeiter" 
Wir haben auch noch Lehrstellen frei. 

BANKEN EEE EEE EEE EEE EEE ODE 
Schneider CPC 664/6128 Steuerberatungssoftware 
Nur für steuerliche Berufe! 

Information anfordern bei: 

CONCEPTION GmbH, 2 Hamburg 61, Hubertusweg 14 
DEREK ENDE NEE EDDIE EEE 3 EEE 3 3 EEE ED EENE 


464/664/6128 Biorhytmus 


s Partnervergleich 

| Pius 1 Seite A4 Kriterien 
m Tage+Grafik 

m vieles mehr!!! 


T.Schwmacher, Ritterstraße 54, 2120 Lüneburg 
Tel. 04131/49886 
DREIER DE EEE EEE EEE EEE EEE EEE 


CPC 464 
LOHN- und EINKOMMENSSTEUER 


m Super Jahresausgleich 

m Steuerklassenwahl 

sm Monatslohnsteuer 

sm Jährliche Aktualisierung ohne Neukauf! 


zusammen auf Kassette 60,- DM 


Info gegen Rückporto: 
Horst Ilchen, Niederfelderstr. 44, 8072 Manching 
Telefon 08459/1669 
BEER IE EURE EEE EEE DEE 3 EEE EEE 3 EEE 


Programme aus Eigenentwicklung 


für alle CPC's bei: 
Friedrich Neuper - 8473 Pfreimd - Postfach 72 
Einfach Gratisinfo anfordern 
BEE EUER EINEN RE EEE DEE DEE EEE EEE EEE EEE EEE OSUEEENE 
50 eigene Programme ab 2,- DM für CPC 
Liste anfordern 

R. Höger - Friedrichstr. 9 - 7317 Wendlingen 

BENENNEN EEE EEE EEE NEID DD DD 3 EEE EEE EEE EEE DEE EEE OEEENE 


RTTY (Funkfernschreiben) für alle CPC‘s 
ASCIIv.Baudot bis 300 Baud 
Auch andere Afu-Software bei: 
S.Peim, Friedrichsruherstr. 32, 1000 Berlin 33 
BEE NEIE III DREIER DE EEE EEE EEE EEE EBENE 


* GSS** CPC VERLAG 


3" Kassette 
m Kalkulation & Graphik DM 79,- DM 69,- 
m Statistik mit Sin ou DM 79,- es 
m Programmdatei Disky DM 59,- DM 49,- 
m Musikdatei LP DM 59,- DM 49,- 
m Film & Videodatei DM 59,- DM 49,- 
a Biorhythmus DM 34,- DM 24,- 
m Home-Manager DM 69,- DM 59,- 
(Dat/Kalk/Termin) 
Auch 5,25" + 3.5" INFO = 1.-DM Briefmarken 


G S S Verlag - Sportplatzstr. 12 - 3552 Wetter 
BEE IE EEE NENNE NEE EEE EEE DEE EEE DEE EDEN EDEN EEE NENENE ONENENENE 
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KLEINANZEIGEN-BESTELLSCHEIN 


Preise je angefangene Zeile: (Scheck oder Briefmarken beilegen) 
- gewerbliche Anzeigen 5,- DM - private Anzeigen 1,- DM ! 
Die Anzeige soll Ol mal O 2 mal O 3 mal erscheinen O privat O gewerblich 


Vorname/Zuname - Firma 
Straße/Hausnummer 


Postleitzahl/Ort 


Datum Unterschrift 


REIKI KEG EEEE EEE BRENNER EEE EKD 
Aufrüstkit für VORTEX SP 64 - SP 320 DM 99, - 


R.Willner - Breslauerstraße 38 - 6114 Groß-Umstadt Verkaufe 
I inne m NLQ 401 
8 NEE EEE EEE EEE EDDIE DIENEN 
Ehe Mailbox-Programm (CPC 464) Tel. 09152/8373 s Traktor 


m Druckerständer 


BER IRDEEEDE DEE EEE EEE EEE EEE EEE EEE EEE EEE EEE m Lichtgriffel 


Texpack f.SCHNEIDER 464 mit Handbuch 4 Wochen alt 
für DM 120, - zu verkaufen Tel.06195/61117 


DEREN NEE NEE NEE EEE EEE EEE EEE OENEENE 
Gesucht für Schneider CPC 6128 auf Disk.Spiele jeder 
Art für Kinder ab 12 Jahre. 

Klaus Möller, Weltistraße 33, 8000 München 71 
Tel. 797407. 


schluß 


für KLEINANZEIGEN Heft 9/86: 
30. JULI 1986 

für KLEINANZEIGEN Heft 10/86: 

30. JULI 1986 


komplett DM 600,- VB 


Tel. 06787/1299 
BENENNEN NEE NEE EEE EEE S DEE 


CPC 464 grün 3 Monate alt 


für nur 690, DM abzugeben 
el. 
0651/10809 
BRENNER DEE 


Programm-Generator für BASIC 


EGE, Postfach 83, A-6961 Wolfurt 
BENENNEN EEE EEE EEE EEE EEE EEE EEE EEE ONE 


{W!BESUCHEN SIE UNS !!! 


ELEKTRONIK & COMPUTERTAGE SAAR 
Verkaufs-Informationsmesse 5.- 
7.9. Kongresshalle Saarbrücken 
INFO: PF 101260 662 Völklingen 
BEER REE EEE NEE EEE EEE EEE EEE EBENEN S NENENEIE 


HÖCHSTPREISE 
FüR IHR ALTGERÄT ZAHLT 


* COMPUTER*VERSAND*TRIER* 
Postfach 2106 Tel. 0651/16366 
BER IKK EIKE NEE NEE NEE EEE IDEE DENE EEE EEE EEE S REIHE 


SUPERANGEBOTE ??? 


Schneider Drucker CPA 80 GS..occceeeeeenenn DM 598,- 
Zenith. PC’148 2... engeren DM 2798, - 


* COMPUTER*VERSAND*TRIER* 
Postfach 2106 Tel. 0651/16366 
INFO anfordern! 
LES ESEL ESEL ES ET ET FEFERERFEREREEREFTTTTTETTETHTRGE NE 


Her ald' Portable Personal Computer 


Technische Änderungen vorbehalten 


Portable PC XT Portable PC XT Portable PC 


1 - 8088 Microprozessor 1 - 8088 Microprozessor 1 - 8088 Microprozessor 

2- 704 KB Hauptspeicher 2- 704 KB Hauptspeicher 2-704 KB Hauptspeicher 
auf 1 MB erweiterbar auf 1 MB erweiterbar auf 1 MB erweiterbar 

3 -1x 360 KB Diskettenlaufwerk 3-1x 360 KB Diskettenlaufwerk 3-2x 360 KB Diskettenlaufwerk 


(formatiert) (formatiert) (formatiert) 
+1x20 MB Festplatte +1x 10 MB Festplatte 4 - Grafik-Monitor, amber 
mit Controller mit Controller 4 : 


ca. 18 cm Bildschirm 
5 - Ergonomische Tastatur mit 
LED-Anzeigen 
6 - Multischnittstellenkarte: 
Uhr, Gameport, RS232, Centronics 
7 - Farb-Grafik - Adapter 
640 x 200 Punkte 
8 - Stecksockel für mathematischen 
Co-Prozessor 
9 - 8 Erweiterungssteckplätze 
10 - Made in Germany 
IBM-kompatibel 
11 - Schlagfestes Kunststoffgehäuse 
ca. 9,5 kg (problemlos tragbar) 


12 - MS-DOS 3.2 
im Lieferumfang eingeschlossen 


4 - Grafik-Monitor, amber, 
ca. 18 cm Bildschirm 
5 - Ergonomische Tastatur mit 
LED-Anzeigen 
6 - Multischnittstellenkarte: 
Uhr, Gameport, RS232, Centronics 
7 - Stecksockel für mathematischen 
Co-Prozessor 
8 - Farb-Grafik - Adapter 
640 x 200 Punkte 
9 - 8 Erweiterungssteckplätze 
10 - Made in Germany 
IBM-kompatibel 
11 - Schlagfestes Kunststoffgehäuse 
ca. 9,5 kg (problemlos tragbar) 
12 - MS-DOS 3.2 
im Lieferumfang eingeschlossen 
13 - Benutzerfreundliche Bedienungs- 
oberfläche, mit „Mouse“ 


Preis DM 5.584,-— 


4 - Grafik-Monitor, amber, 
ca. 18 cm Bildschirm 

5 - Ergonomische Tastatur mit 
LED-Anzeigen 

6 - Multischnittstellenkarte: 
Uhr, Gameport, RS232, Centronics 


7 - Stecksockel für mathematischen 
Co-Prozessor 


8 - Farb-Grafik - Adapter 
640 x 200 Punkte 


9 - 8 Erweiterungssteckplätze 
10 - Made in Germany 
IBM-kompatibel 
11 - Schlagfestes Kunststoffgehäuse 
ca. 9,5 kg (problemlos tragbar) 
12 - MS-DOS 3.2 
im Lieferumfang eingeschlossen 


13 - Benutzerfreundliche Bedienungs- 
oberfläche, mit „Mouse“ 


Preis DM 4.900,-- 


Preis DM 3.499,-- 


088 
Stecksockel für Netz 
math. Co-Prozessor 
her [ums jıme  jumm  jmomer lea LT |  Oetnenser 
Hauptspeicher az 1 MB 740 KB 1MB/s 
Diskettenlaufwerk 1 12M 2 360 K 2 360 K Netzwerklänge: 
10 Koaxialkabel 
bis ca. 1000 m 
RS 422 EIA 
Multischnittstellen- | Centronics Standard 
karte RS232 
bis zu 64 
Arbeitsplätzen 


Grafik-Adapter IBM kompatible 
Steckplätze Software 


798,-- pro Station 


Multifunktionskarten, Uhrenkarten, Speichererweiterung, Grafiktabletts, Lightpens etc. auf Anfrage. 
Wiederverkäufer fragen bitte nach unseren interessanten Bedingungen. 


IBM ist eingetragenes Warenzeichen der International Business Machines. 


INFO anfordern bei: 
GIGGE-ELECTRONICS - Schneefernerring 4 - 8500 NÜRNBERG 50 
Telefon 0911/84244 - Modem: 0911/84400 (18-24 Uhr) 


für den Computer-Fan 


Der Geschenk-Tip 


ANDREAS 

VERLAG 
ANDREAS 
VERLAG 


ANDREAS 
VERLAG 
ANDREAS 
VERLAG 
ANDREAS 
VERLAG 
ANDREAS 
VERLAG 
VERLAG 


ANDREAS 


BASIC & 


Br @ 


(res BASIC (GE 
Fin Bir Venen BASIC (u 
Aminen wemeoweören [AFTO/L, (EI 


DIE 
FÜR 


DIE FARBIGE ENZYKLOPÄDIE 
BÜRO- HEIMCOMPUTER 


Das komplette Sammelwerk in 10 Bänden 
je Band nur 54,- DM 


Band 1 bis 6 bereits lieferbar 


Ein Leser-Service des SCHNEIDERN-aktiv TEAMS 


SCHNEIDER-aktiv Verlag - Schneefernerring 4 - 8500 NÜRNBERG 50 


zuzüglich S,- DM Porto und Verpackung. Der Versand erfolgt ausschließlich gegen Vorausscheck. 
Bestellen Sie direkt beim Verlag und geben Sie die gewünschten Bandnummern an. Bitte keine 


telefonischen Bestellungen. 


